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ABSTRACT 


THIS PROGRAM IS DESIGNED TO BE USED BY AN EXPERIENCED te aa 
Ad yan ht. FOR EVALUATION AND DEBUGGING OF MAG TAPE DRIVES 
THE PROGRAM IS CAPABLE OF EXERCISING THE TE16 MAGNETIC 
SBUS oxo THE TMOS MAG TAPE 
LER. Y COMBINATION OF TMO3'S & TE16'S UP TO A MAXIMUM OF EIGHT 
BE TESTED BY A SINGLE OEXECUTION OF hens PROGRAM. THIS 
FLEXIBILITY IS POSSIBLE BECAUSE THE PROGRAM HAS NO FIXED PARAMETERS 
OR TESTING SEQUENC RE TEST PLAN, INCLUDING PARAMETERS 
AND OPERATING SEQUENCE, IS DETERMINED BY THE OPERATOR THROUGH 
RESPONSES TO TELETYPE REQUESTS AND SETTING OF CONSOLE SWITCHES. 


THE PROGRAM PROVIDES FOR TESTING OF ALL TAPE DRIVE FUNCTIONS 
SUCH AS WRITING, READING,REWINDING, TAPE POSITIONING, EOT - BOT 
SENSING AND ASSUMES A GOOD RH AND TMO3. 


HOWEVER; THE RH AND TMO3 ARE TESTED SOMEWHAT INTRINSICALLY 
DURING THE TEST CYCLE IN ORDER TO PROVIDE FULL INFORMATION ABOUT 
ANY ERROR CONDITIONS DETECTED. 


DURING A TEST CYCLE, CHECKS ARE MADE aa STATUS ERRORS ,DATA ERRORS, 


POSITION ERRORS,WORD COUNT AND CURRENT MEMORY ADDRESS ERRORS 
WHEREVER APPLICABLE AS DETECTED BY THE RH OR TMO3. 


REQUIREMENTS (HARDWARE ) 


. E 

- TMO3 TAPE CONTROLLER 

- 1 TO 8 MAG TAPE DRIVES 
- MASSBUS CONTROLLER 


LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR LOADING BINARY TAPES 
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STARTING PROCEDURE 


THERE ARE FOUR (4) STARTING ADDRESSES THAT MAY BE USED; 
200(8) ,204(8) ,210(8) AND 240(8): 


A. 200(8): 


- 204(8): 


- 210(8): 


- 240(8): 


300(8): 


THIS ADDRESS MUST BE USED ON INITIAL START FROM 
LOAD AS ALL PARAMETERS ARE ENTERED FROM HERE. 
REQUESTS ARE PRINTED ON THE TELETYPE FOR ENTRY OF 
RH STARTING ADDRESS, VECTOR ADDRESS, DRIVE NUMBER(TMO3 ADDRESS), 
SLAVE NUMBER, DENSITY,PARITY,FORMAT,RECORD COUNT, CHARACTER 
COUNT PATTERN NUMBER, TAPE MARK AND STALL FOR READ, WRITE, 
AND TURNAROUND. ALL’REPONSES SHOULD BE MADE IN 
OCTAL AND y ng THE LIMITS OF THE PARAMETER. 
A QUESTION MARK (?) WILL BE TYPED IF ANY 
CHARACTER ENTERED IS NOT BETWEEN O THRU 7 (OCTAL). 
THE CHARACTER MAY BE RETYPED FOLLOWING THE QUESTION 
MARK. IF THE RESPONSE IS NOT WITHIN ITS LIMITS. A 
QUESTION MARK (?) IS TYPED THE 
MAY BE RENTERED. ONE 
(1) CHARACTER, BUT By REQUIRES MORE THAN SIX (6). 
RESPONSES OF MORE THAN ONE CTER NEED NOT HAVE 
LEADING ZEROS AND SHOULD BE TERMINATED BY A CARRIAGE 
oe LESS THAN THE MAXIMUM NUMBER OF CHARACTERS 


at ADDRESS SHOULD BE USED ome ta A RESTART 

OF THE PROGRAM IS NECESSARY AND T ages Ly S 

ENTERED AT ae jp START OF 300(8) NE D NOT 

BE CHANGED. O NOTE THAT ANY DATA PATTERN Faas 

HAD BEEN GENERATED BY SETTING THE RANDOM DAT 

SWITCH (CONSOLE oft EIGHT) WILL NOT BE OVERWRITTEN 

AND THERFORE IS HELD IN CORE FOR USE UNTIL 

CONSOLE SWITCH EIGHT (B) IS AGAIN SET AND THAT ALL STATISTICS WIL 


THIS ADDRESS IS THE SAME AS USING 204(8) IN THAT THE 

PREVIOUSLY SET PARAMETERS ARE USED; HOWEVER, THE DATA 

PATTERN IS RETURNED TO THE FIXED PATTERN ORIGINALLY 

CALLED FOR AT THE 200(8) START AND ALL STATISTICS ARE CLEARED TO 


THIS IS A SPECIAL_ADDRESS WHICH WILL CAUSE THE 
PROGRAM TO EXECUTE A PREDETERMINED TEST PLAN ON 
ALL AVAILABLE DRIVES AND SLAVES. ONLY I 


CONTINUOUS OPERATION OF THE SEQUENCE, AND NRZ ONLY 


THIS ADDRESS IS TO BE USED AS A RESTART ONLY 

on 3 WILL PERFORM JUST AS IN 200(8) EXCEPT THAT — 
E PARAMETER INPUT LIST IS SHORTENED. THE SHORT 

PARAMETER LIST CONSISTS OF DRIVE NUMBER, SLAVE 

NUMBER, DENSITY, PARITY, FORMAT, RECORD COUNT, 

CHARACTER COUNT. PATTERN, TAPE MARK, AND 
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INTERCHANGE READ. 
**NOTE SEE ALSO SECTION 8-CONSOLE SWITCH SETTINGS 


THE FOLLOWING IS AN EXPLANATION OF THE INITIAL 
START (200 OCTAL) REQUESTS AND RESPONSES: 


REGISTER START: THE RESPONSE REQUIRED FOR THIS cine? tes 
IS TO ENTER THE ADDRESS OF THE FIRST 
REGISTER (CS1) AS A SIX DIGIT UNIBUS ADDRESS. 


VECTOR ADDRESS: i. RESPONSE FOR THIS REQUEST 
IS_TO ENTER THE INTERRUPT VECTOR ADDRESS 
USED BY THE RH AS A THREE (3) DIGIT ADDRESS. 


DRIVE NUMBER: THE DRIVE NUMBER (MASSBUS ADDRESS 
OF THE TMO3) IS ge AS_ONE (1) 
OCTAL CHARACTER AND MUST BE WITHIN THE LIMITS 
OF 0 THROUGH 7 


SLAVE NUMBER: THE SLAVE NUMBER IS ENTERED s ONE 

(1) OCTAL CHARACTER AND MUST BE 

WITHIN THE LIMITS CF 0 THROUGH 7. 

WHEN THE SLAVE NUMBER HAS BEEN 
ENTERED AND IS LEGAL, THE PROGRAM TESTS 
FOR THE oe OF A SLAVE OF THAT 


; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
: 
1 
: 
1 
1 
1 
1 
1 
1 
1 
Fi 
1 
1 
j 
1 


BRLFFRAVLSSRGRARRAVLSBISIVAARANASSS 


BREN 
Wr 


SLAVE AND SHOULD BE ED TO 
ACCORDING TO THAT PARITICULAR SLAVE'S 
NEEDS. AS MANY AS EIGHT (8) SLAVE 
NUMBER REQUESTS MAY BE USED, HOW- 
tig AT LEAST ONE 


ps) 
o-% 
v 


BERRae 


REQUIRED, a RESPONDING TO THE 
SLAV REQUEST WITH A CARRIAGE 
RETURN WILL PR ERMINATE THE SLAVE 
ENTRIES AND CONTINUE TO THE NEXT 
PARAMETER, IT SHOULD BE REMEMBERED 


MOMIMGMNMONNONNoNy 
ti ah ca cod wail anil adh coh mal meal 
O00 NAW ES WOO 
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THAT AT LEAST ONE SLAVE et REQUEST 


CARRIAGE 
ETURN, THEN THE REQUEST WiLL BE REPEATED. 


DENSITY: THE DESITY REQUEST IS RESPONDED TO BY ONE (1) OCTAL 
CHARACTER AND MUST BE WITHIN THE LIMITS OF 0 THRU 4. 
AS EACH SLAVE NUMBER IS ENTERED, A REQUEST FOR THE 
OPERATING DENSITY FOR THAT SLAVE IS TYPED. THE 
RESPONSE MEANINGS ARE AS FOLLOWING: 


A. 3 = 800BPI, NRZI 
B. 4 = 1600BPI, PE (9 CHANNEL ONLY) 


THE PARITY REQUEST IS RESPONDED TO BY ONE (1) 
OCTAL CHARACTER AND MUST BE EITHER O OR 1. 

A. 1 = EVEN PARITY 

B. 0 = ODD PARITY 
THE FORMAT REQUEST IS RESPONDED 

CHARACTERS 


TO BY TWO (2) C 
AND SHOULD BE AS FOLLOWS 


9 CHANNEL NORMAL (TWO FRAMES = WORD ) 
CORE DUMP (FOUR FRAMES PER WORD) 
OR IBM COMPATABLE (TWO FRAMES PER 


16 = PDP-15 
(DATA IS BYTE SWAPPED ON TAPE) 


RECORD COUNT: THIS REQUEST IS RESPONDED TO BY A SIX (6) CHARACTER 
0 OM 1 TC 177777. REMEMBER LEADING 


PON 
ON WITH THE CHARACTER COUNT 
TO ESTABLISH A BLOCKING FACTOR FOR USE IN READ OR 
WRITE CYCLES. 


CHARACTER COUNT: THIS RESPONSE IS ENTERED AS FOUR (4) OCT 
CHARACTERS WITHIN THE LIMITS OF 20 THRU 4000. AGAIN 
LEADING ZEROS ARE NOT REQUIRED AND A CARRIAGE 
RETURN ae oy A LESS THAN FOUR (4) CHARACTER 
RESPONSE. THE CHARACTER COUNT IN CONJUNCTION 
WITH THE RECORD COUNT IS USED TO ESTABLISH 
THE BLOCK SIZE (CHARACTERS PER RECORD, 
RECORDS PER BLOCK) USED IN READ AND WRITE CYCLES 
THE SAME BLOCKING IS USED ON ALL AVAILABLE UNITS. 
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PATTERN NUMBER: THIS RESPONSE IS A TWO (2) CHARACTER OCTAL 
NUMBER WITHIN THE LIMITS OF 0 THRU 15(8). 
TERED WILL CAUSE A SPECIFIC DATA 
ye * FOR ALL READING AND raat y THIS 
T_CHANGED DAT 


TERN IS NO UNLESS 
REQUESTED BY SETTING CONSOLE SWITCH EIGHT (8) 
13 A ONE. RESETTING OF THE RANDOM DATA SWITCH 
DOES NOT CAUSE REVERSION TO THE FIXED os saat 
T WILL_HOLD THE GE E 


5 21008, OR 300(8). 


ISONS WITH 
HE HARDWARE pyar CHECK CHARACTER 
IN BOTH READ AND WRIT 

THE SELECTION OF DATA PATTERN ZERO (0) HAS A 
SPECIAL USE. PATTERN R 


BE SURE TO LOAD THE READER 
BEFORE PRESSING START. 


TAPE MARK: THE TAPE MARK REQUEST IS USED TO DETERMINE 
IF THE OPERATOR WISHES TO HAVE EACH 


PLEASE NO HA 
RECORD INCREASES THE BLOCK SIZE BY ONE (1) 
RECORD; IN OTHER WORDS, CK OF 100 

RECORDS WILL HAVE THE TAPE MARK AS RECORD 101. 


WNNNNNNANWNAW 


14 BE et et er fe tat pe ee ey 


INTERCHANG? a Hye: REQUEST IS RESPONDED TO BY 


=OOONAUISWM—-O OO N 


WW 
MN 
WR 


BE D IN 
HANGE MODE. A ZERO RESPONSE 
WILL CAUSE READING IN NORMAL MODE. 


ney 
BK 
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SINGLE PASS: on ik SEND t0 IS_ RESPONDED TO BY EITHER A ONE ( 


OF 0, WILL 

LOW CONT INUOU NG THROUGH MULTIPLE PASSES. 
TO RESTART AT END OF PASS, PRESS CONTINUE, OR 
RESTART AT THE CONSOLE. 


STALLS: THE STALL gong ty ARE RESPONDED TO BY A SIX (6) 
CHARACTER OCT ITS OF 1 
THRU 177777. 


S D 
EACH INCREMENT 
OF THE VALUE ADDS ABOUT 2.6 MICSEC TO THE DELAY. 


READ: THE TIME DELAY BETWEEN EACH RECORD READ 
WRITE: THE TIME DELAY BETWEEN EACH RECORD WRITTEN 


TURN AROUND: TIME DELAY BETWEEN CHANGES OF 
TAPE DIRECTION (FORWARD,TO REVERSE ETC.) 
AND BETWEEN BLOCKS. 


FIXED PARAMETERS: IT SHOULD BE NOTED THAT ALL oe Ca tan EXCEPT 
FOR THE SLAVE DESCRIPTION VALUES (SLAVE 
NUMBER, DENSITY, PARITY, AND FORMAT) HAVE NOMINAL 
VALUES ALREADY STORED IN THE PROGRAM. 
COUNT, CHARACTER COUNT, TAPE MARK AND STALLS) IS TYPED. 
ITS PRESENT STORED VALUE IS ALSO PRINTED. 
i THESE VALUES NEED NOT BE CHANGED, SIMPLY 
TYPE A CARRIAGE RETURN AS RESPONSE AND NO 

E L BE MADE. EACH START OF THE PROGRAM 

AT 200(8) WILL SHOW THE CURRENT VALUES OF THESE 
PARAMETERS AS PER Ma | LAST ENTRY. WHEN z. 
FRESH LOAD OF THE PAPER TAPE IS DONE, THE 
PARAMETERS WILL REFLECT THE FIXED VALUES STORED 
IN THE PROGRAM. 


RECORD COUNT = 100 
CHARACTER COUNT = 200 
- PATTERN NUMBER = 1 


TM= 
INTERCHANGE READ = 


=O MIOWO>yYS 
scree 


" TURN AROUND STALL = 1 
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SAMPLE START AT 200(8): 


THE FOLLOWING IS A SAMPLE OF THE 

PRINTED REQUESTS AND THEIR RESPONSES. 
RESPONSES ARE ENCLOSED IN PARENS FOR 
CLARITY ONLY AND (CR) MEANS CARRIAGE RETURN 


LOAD ADDRESS 200(8), SET CONSOLE SWITCHES, PRESS START SWITCH: 
_.4E16 TAPE DRIVE TEST 


REGISTER START= 172440(172440) 

VECTOR ADDRESS-224 ( 

DRIVE NUMBER ; 
LAVE MBE R=(2) SN: 5009 

SENSI T YS Ca) 

PARITY= (0) 

FORMAT=(14 d 

SLAVE MIPBER= (2) 9 CHAN SN: 0022 { 


1 


4 
: 


00) ¢ 
CHARACTER COUNT=200 (38) 9¢7) (CR) 
PATTERN NUMBER=1 (22) 


(6) (CR) 

TM=(0) 

INTERCHANGE READ=(1) 
SINGLE PASS=(0) 


ENTER STALLS 
READ=1 (CR) 
WRITE=1 (CR) 
7 TURN AROUND=1 (3000) (CR) 


THE PROGRAM WILL NOW PERFORM THE TEST CYCLE SET IN 
THE CONSOLE SWITCHES ON SLAVE FIVE (5) THEN TWO (2) 


FOR MINIMUM ON READ AND WRITE. AND APPROXIMATELY .75 
SECONDS ON TURN AROUND. 


NO TAPE MARKS WILL BE WRITTEN AND ALL READING 
WILL BE DONE IN INTERCHANGE MODE (MAINT MODE 0001). 





K 1 
CZTEDBO TMO3-TE16/TU77 «} MACY11 30A(1052) 21=DEC-78 13:17 PAGE 10 
CZTEDB.P11 15=NOV-78 13:19 SEQ 0010 


4.1 AUTOMATIC MODE OPERATION 


IF THE PROGRAM IS LOADED AND RUN IN AUTOMATIC (CHAIN) MODE 
THE AUTO ACCEPT SEQUENCE TEST PLAN IS RUN. = SEC 11. BELOW; 
THE SOFTWARE SWR IS INVOKED WITH A SWITCH SETTING OF 000000 
IF LOADED VIA ACT11. NO OPERATOR INTERVENTION IS REQUIRED. 


**EXCEPTION: IF THIS PROGRAM IS LOADED VIA _TMDP CHAIN MODE THE 
PROGRAM WILL TEST ALL SLAVES ON THE FIRST AVAILABLE 
DRIVE EXCEPT SLAVE 0. 


**NOTE: IN ORDER TO CHANGE THE DEFAULT SETTING OF THE SOF 
SWR, CHANGE LOC: 176(SWREG:) TO THE DESIRED SETTING. 


DATA PATTERNS 


THERE “_ FIFTEEN DATA PATTERN GENERATORS STORED IN CORE 
AND ANY ONE OF THESE MAY BE SELECTED. ONE UNIQUE 
CASE mts PATTERN ZERO(O) ; gy HEL OF PATTERN ZERO(O) 
VIOUSLY ARED PAPER TAPE BE 
nae TAPE CONTAINS 


CTAL 
THE FIRST CHARACTER READ IN IS THE 
ACTUAL DATA CHARACTERS "ae ARE CONTAINED 
ON THE TAPE. EACH DATA CHARACTER MAY BE ANY 
COMBINATION OF BITS ~ WILL BE LOADED aad — 
AS THEY APPEAR ON THE TAPE. 


NO MATTER 
CHARACTERS ARE ON TAPE, THE ENTIRE URITE BUFFER (4000 CHARACTERS) 
WILL BE FILLED WITH THE PATTERN ENTERED SO THAT ANY 
RECORD CAN BE DTC RAINDEC™11-DZTUF-A-D) 


GENERATED BY THE HARDWARE IN NRZI READS OR WRITES. 
THE FOLLOWING IS A LIST OF THE DATA PATTERNS AVAILABLE: 


EXTERNAL INPUT THRU HIGH SPEED READER (SEE DTC) 
ALL ONE BITS IN ALL CHARACTERS 
ALL ZERO BITS IN ALL CHARACTERS 

BIT WALKING FROM RIGHT TO LEFT INA dy ity a 


ZERO AND ONE BITS IN EACH CHARACTER 
S DATAS BUT WITH tg OTHER eee | De acta 


: WALKING ONEZALL_ONE_IN TINS CHARA 

: INCREMENT ING eamat ied "(000377 

: sg tpley CHARACTERS (379-000) 

: ALTERNATING CHARACTERS OF ALL ZERO AND ALL ONE BITS 

: WALKING ZERO/ALL ZERO IN ALTERNATING CHARACTERS 
DATA15: AUTO SEQUENCE PATTERN 0,0,-1,-1,-1,0.0 
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RANDOM] ZATION 


THERE ARE THREE (3) VALUES THAT MAY BE GENERATED RANDOMLY; 

DATA, CHARACTER COUNT, AND RECORD COUNT. THESE ARE NORMAL LY SET TO 
SOME FIXED VALUE BUT MAY BE RANDOMIZED BY SETTING THE APPROIATE 
CONSOLE SWITCHES. 


A. RANDOM DATA: (CONSOLE SWITCH 8) 
GENERATES AN ENTIRE BUFFER. CHARACTER BY 


= N CORE. RESTART AT LOCATION 
) OR 310(8) WILL Cause REVERSION OF THE 
SATA TO THE FIXED PATTERN REQUESTED INITIALLY. 
A RESTART AT LOCATION 204(8) WILL HOLD 
Noaar PATTERN IN CORE UNTIL SWITCH 
ALTHOUGH THE DATA IS GENERATED AS RANDOM, 
OF RANDOM gree Ug BY ALWAYS 


DATA EST. 
Maye ges TO RE~ESTABLISH THE OUTSET POINT, AND 
READ THE RANDOM TAPE REEL ON ANOTHER UNIT 
FOR COMPATABILITY TESTING. IN orate SYSTEMS THE SAME 
BLOCK OF DATA, WHETHER RANDOM OR FIXED, . 
WRITTEN OR READ ON EACH AVAILABLE UNIT IN THE 
ORDER THAT THEY WERE ENTERED, BEFORE BEING CHANGED. 


RANDOM CHARACTER COUNT: (CONSOLE SWITCH 7) 
GENERATES A_DIFFERENT NUMBER OF CHARACTERS 

PER RECORD TO BE WRITTEN ON EACH BLOCK CYCLE. 
THE SAME NUMBER OF CHARACTERS PER RECORD IS 

WRITTEN OR READ ON EACH AVAILABLE_UNIT BEFORE 
BEING CHANGED. RESETTING SWITCH 7 HOLDS THE 
LAST VALUE GENERATED. 


RANDOM RECORD COUNT: (CONSOLE of ieta 6) 

GENERATES A DIFFERENT NUMBER OF RECORDS 

FOR EACH BLOCK OF DATA WRITTEN OR READ ON 

EACH BLOCK CYCLE. THE SAME NUMBER OF RECORDS 

IS WRITTEN OR READ ON EACH AVAILABLE UNIT BEFORE 
tone RESETTING SWITCH 6 HOLDS LAST VALUE 


511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
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DYNAMIC PARAMETERS: 


THE THREE 4 hey VALUES ARE CONSIDERED TO BE DYNAMIC 
PARAMETERS AS THEY MAY BE CHANGED WHILE THE PROGRAM IS 
RUNNING BY TYPING A_ CONTROL B CHARACTER AT THE TELETYPE. 

AS SOON AS THE BUS IS RELEASED BY THE MAG TAPE OPERATION 

IN PROGRESS, THE PROGRAM WILL RESPOND TO THE CONTROL C 

BY TYPING A REQUEST FOR NEW STALL PARAMETERS. THE LAST VALUES 
THAT WERE ye 3 WILL BE PRINTED AS THE STORED VALUES AND MAY 
BE C Y ENTERING NEW VALUES OR LEFT UNCHANGED BY 
TYPING A CARRIAGE RET 

THE YOZZLE STALL IS ALSO DYNAMIC AND CAN BE CHANGED 

BY TYPING A CONTROL B WHILE DOING A YOZZLE. A YOZZLE STALL 
REQUEST WILL BE PRINTED AND SHOULD BE RESPONDED TO WITH 
THE DESIRED VALUE. 
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CONSOLE SWITCH SETTINGS 


CONTROL: 


1) CONTROL G <*G>; 
THE mac SOFTWARE SWR AND ALLOWS a. ae NEW SWITCHES. 


N : 
XXXXXX 1S Ma | OCTAL “CONTENTS. OF THE SOFTWARE SWR. 
HE "NEW=" HAS BEEN tia THEN THE OPERATOR CAN DO ONE 


O BE LOADED INTO THE SOFTWARE SWR 
B) IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWR 
CONTENTS WILL NOT BE CHANGED. 


2) CONTROL A <*A> 
ALTERNATES USAGE OF THE SWR BETWEEN THE HARDWARE SWR & SOFTWARE SWR. 


3) CONTROL B <*B>; 
SEE SECTION 7 DYNAMIC PARAMETERS 


4) CONTROL U <“*U> 
DELETES ALL CHARACTERS TYPED IN RESPONSE TO A REQUEST. 


THE CONSOLE SWITCHES ARE USED TO SET UP THE TEST CYCLE 
DESIRED, TO GENERATE RANDOM VALUES, AND TO CONTROL ERROR 
RESPONSES. THE SUITCHES SHOULD BE SET IN THE DESIRED 
MANNER BEFORE PRESSING THE START SWITCH BECAUSE THEY 

E ALL DYNAMIC AND WILL N ANY 


AR RUN THE PROGRAM I 
CONFIGURATION. ALL SWITCHES SET TO ZERO(O) IS NORMAL. 


SW15: 1=STOP ON ERROR 
O=CONTINUE ON ERROR 


SW14:  1=PRINT READ/WRITE STATISTICS 
=DO NOT PRINT STATS 


SW13: 1=DO NOT CHECK DATA ERRORS 
O=CHECK DATA ERRORS 


SwW12:  1=DO_NOT CHECK WRITE STATUS ERRORS (NOR CLEAR THEM IF THEY DO OCCUR) 
O=CHECK WRITE STATUS ERRORS 


SW11: 1=DO NOT CHECK READ STATUS ERRORS (NOR CLEAR THEM IF THEY DO OCCUR) 
O=CHECK READ STATUS ERRORS 


SW10: 1=DO NOT PRINT ANY ERRORS (EXCEPT CATASTROPHIC ERRORS) 
O=PRINT ALL ERRORS 


Sw9: 1=REWIND ALL AVAILABLE TAPES 
0=DO NOT REWIND 


1=GENERATE RANDOM DATA 
O-USED FIXED DATA 
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SW7: 1=GENERATE RANDOM CHARACTER COUNT 
O=USE FIXED CHARACTER COUNT 


SW6: 1=GENERATE RANDOM RECORD COUNT 
O=USED FIXED RECORD COUNT 


1=YOZZLE ON CURRENT RECORD 
O=DO NOT YOZZLE ON RECORD 


1=D0 nt By Lhe ay RETRIES 
0=DO NOT R 


1=DO0 NOT READ FORWARD 
O=READ FORWARD 


1=DO NOT READ REVERSE 
OQ=READ REVERSE 


1=READ FORWARD FIRST 
O=READ REVERSE FIRST 


1=DO NOT WRITE 
WRITE 
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SWITCH EXPLANATION AND EXAMPLES: 


SW0-3: THESE SWITCHES ARE USED TO CONTROL THE SEQUENCE 
OF MAG TAPE OPERATIONS PREFORMED ON EACH AVAILABLE 
UNIT. THE BLOCK OF DATA DESCRIBED THROUGH 
LETYPE ab tal AT apie START 
N OR READ FROM EACH AVAILABLE 
HE ORDER THAT THEY WERE oo unt THE SEQUENCE 
L_BE PERFORMED 


RATOR: WHEN END 
EWOUND AND 
L TEST UNTIL ALL UNITS HAVE 
REACH EOT, AT WHICH TIME TESTING IS RESUMED ON ALL 
AVAILABLE UNITS. 
EXAMPLES: 0-3 


A. SWO=0,SW1=0,SW2=1 ,SW3=1 
WRITE ONLY X RECORDS OF Y CHARACTERS 


B. SwO0=0,SW1=0,SW2=1 ,SW3=0 
WRITE THEN BACKSPACE AND READ FORWARD X RECORDS 


SWO=0 ,SW1=0,SW2=0, SW3=1 
WRITE THEN READ REVERSE X RECORDS. 


SWO=0, SW1=0,SW2=0, SW3=0 
WRITE THEN READ REVERSE AND READ FORWARD X RECORDS 


SWO=0, SW1=1 , SW2=0, SW3=0 
WRITE THEN BACKSPACE AND READ FORWARD THEN REVERSE 


SWO=1, SW1=0, SW2=1 , SW3=0 
READ TAPE FORWARD X RECORDS 


SWO=1 , SW1=0, SW2=0, SW3=1 
READ TAPE REVERSE X RECORDS 


SWO=1 , SW1=0, SW2=0, SW3=0 
READ TAPE REVERSE THEN FORWARD 


SWO=1 , SW1=1,SW2=0, SW3=0 
READ TAPE FORWARD THEN REVERSE 
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SWITCH FOUR (4), WHEN SET TO A ONE (1), WILL 
CAUSE ANY DATA RELATED ERROR TO BE RETRIED. 
THE WRITE RETRY SCHEME CONSISTS OF REWRITING THE RECORD 
IN THE SAME SPOT ON TAPE FOUR (4) TIMES. IF 
ALL _FOUR (4) REPEATS ARE SUCCESSFUL, THE 
RECORD IS CONSIDERED AS RECOVERED, AND A TAPE 
WRITE ERROR IS LOGGED. IF ANY OF THE FOUR 

(4) REPEATS IS gorge A_SKIP ERASE IS 
DONE, A SUPECTED BAD TAPE SPOT IS os 

AT THIS BLOCK AND RECORD NUMBER, AND A SECOND 
RETRY OF FOUR REPEATS IS DONE. IF AFTER FOUR 
(4) RETRIES, THE RECORD CANNOT BE RECOVERED 
A NOTIFICATION IS F decond AND TESTING IS 
RESUMED ON THE NEXT RECORD. 


IF 20(8) BAD TAPE SPOTS ARE FOUND, THE 

SLAVE WILL_BE REWOUND AND REMOVED dy 

TESTING WITH AN APPROPRIATE MESSAGE PRINTED. 

THE READ RETRY SCHEME CONSISTS OF REREADING THE 
RECORD UP TO EIGHT TIMES. IF ALL EIGHT REREADS ARE 
BAD, IT IS A_HARD ERROR. IF ance REREAD IS 
SUCCESSFUL , THIS IS A SOFT E 


F iH NON=RE TRYABLE 
IE: ILF,RMR,ILR,NEF ,CBUSPE), THe RETRY SCHEME 
IS NOT ENTERED AND A MESSAGE IS PRINTED. 


SWITCH FIVE (5) WHEN SET DURING A READ 
FORWARD OR REVERSE WILL CAUSE THE TAPE 
TO CONTINUOUSLY READ THE CURRENT RECORD 
BY SPACING EITHER FORWARD OR REVERS 
REREADING THAT yeas 
IS CALLED YOZZLING. THERE IS A 
DELAY EXECUTED BETWEEN EACH SPACE/READ 
MAY BE VARIED BY 
TELETYPE DURING 
RESPOND 


PREVENT EXCESSIVE TAPE WEAR, BUT MAY BE 
SET TO ANY VALUE THROUGH THE TELETYPE. 


THESE THREE (3) SWITCHES CONTROL THE RANDOMIZATION 
OF DATA AND BLOCK SIZE AND MAY BE SET 

AND RESET AT ANY TIME. THE ACTUAL CHANGE 

WILL TAKE PLACE BETWEEN BLOCK CYCLES. 


SWITCH NINE (9) WHEN SET WILL CAUSE ALL 
AVAILABLE TAPE UNITS TO BE REWOUND AT 

THE END OF THE CURRENT BLOCK CYCLE. TESTING 
WILL BE RESUMED AT A BLOCK COUNT OF 

ONE 1) WHEN ALL UNITS HAVE REACHED BOT. 
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SW10-13: THESE SWITCHES ARE USED TO CONTROL THE 
ERROR HANDLING TO BE DONE ON THE TAPE 
OPERATION DESCRIBED BY SWITCHES 0-3. 


SWITCH TEN (10) WHEN SET TO A ONE 


STILL OCCUR. IE: E 
BOT, DROP OR PICK OVERFLOW, AND EOT REWIND. 


SWITCH ELEVEN (11) WHEN SET TO A oh 
WILL DISALLOW THE CHECKING FOR STATUS 
ERRORS ON READ (FORWARD OR REVERSE) OPERATIONS. 


SWITCH TWELVE (12) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING FOR STATUS 
ERRORS ON WRITE OPERATIONS. 


SWITCH THIRTEEN (13) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING OF READ 
DATA. THIS SWITCH HAS NO EFFECT ON 
STATUS CHECKING. 


**NOTE THAT WHEN SW11 OR_12 ARE SET, NOT ONLY ARE ERRORS NOT CHECKED, BU 
*** THEREFOR USE CAUTION" TO ASSURE THAT OPERATIONS ARE NOT UNEXECUTED DUE 
****DO NOT SET Sw 11 OR 12 TO A ONE (1), DURING A RETRY SEQUENCE. 


SWITCH FOURTEEN (14)WHEN SET TO A ONE (1) WILL 

PRINT THE ACCUMULATED READ/WRITE STATISTICS FOR THE SELECTED 
SLAVE UNDER TEST AT THE END OF THE CURRENT BLOCK 

CYCLE. THE STATISTICS PRINTED ARE THE NUMBER OF BITS 
DROPPED OR PICKED, THE NUMBER OF RETRIES, WRITE ERRORS, 

READ ERRORS, AND DATA ERRORS. 


SWITCH ae he (15) WHEN SET TO A ONE, 
WILL CAUSE THE PROGRAM TO HALT ON ANY 
ERROR DETECTED van OPERATION Me: aes 


E A HALT. 
IF SWITCH TEN (10) IS RESET BEFORE PRESSING 
CONTINUE, THE ERROR WHICH CAUSED THE HALT 
WILL BE PRINTED BEFORE TESTING IS RESUMED. 
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oo” 
ERROR PRINTOUTS 


ey ye ARE THREE Tie OF ERROR natn bias MADE BY 

THE PROGRAM; OPERATION ERRORS, DATA ERRORS, AND CONDITION 
ERRORS. EACH ERROR MESSAGE PRINTED IS PROCEEDED BY A TWO LINE 
HEADER WHICH aa THE DRIVE NUMBER, SLAVE NUMBER, 
DENSITY, PARITY, AND FORMAT ON THE FIRST LINE, AND THE BLOCK NUMBER, 
RECORD NUMBER, "RECORD SIZE, AND ERROR TYPE ON THE SECOND. 


A. OPERATION ERRORS: 


THESE ARE ERRORS WHICH CAN OCCUR AS A 
DIRECT RESULT OF A TAPE OPERATION. 


1, READ/WRITE STATUS ERRORS: THESE ARE DETECTED BY EITHER THE TMO3 
ITSELF OR BY THE MASSBUS CONTROLLER. 
ALL STATUS ERRORS WILL BE REPORTED. 


2. TAPE POSITION ERRORS: THESE ARE INDICATED BY AN INCORRECT 
SPACE OR REWIND OPERATION IN WHICH 
TAPE POSITION BECOMES UNRELIABLE. 


ERRORS: 


DATA ERRORS WILL OCCUR WHEN TAPE IS 

BEING READ AND THE DATA FROM TAPE DOES 

NOT MATCH THE EXPECTED DATA. WHEN READING 

IN THE REVERSE DIRECTION, THE RECORD NUMBERS 
WILL BE COUNTED DOWN FROM LAST TO FIRST. 

THE CHARACTER NUMBERS IN REVERSE READS aioe 
ALSO BE COUNTED DOWN IN ORDER TO REFLECT 

TAPE POSITION RATHER THAN THE ORDER TRANSFERRED. 


Peart DATA RECORDS CAN BE UP TO FOUR THOUS ye 
HARACTERS LONG, AN ERROR CONDITION WHICH WILL CAUSE 

THE ENTIRE RECORD TO READ INCORRECTLY COULD CAUSE A VERY 

LENGTHY PRINTOUT. FORE, A oh ¥’ a azes 


) NE 
ARE SKIPPED BEFORE CHECKING IS RESUMED. H 
BAD RECORD CONDITION OCCURS THREE (3) TIMES IN ONE 
RECORD, THE REST OF THE RECORD IS SKIPPED, DOWN 
TO THE LAST TEN (1G) CHARACTERS WHICH WILL BE 
CHECKED. THE SKIPPING AND RESUMPTION OF CHECKING 
WILL ONLY BE DONE ON RECORDS WHICH ARE LONG 
FNCUGH TO ALLOW IT. 
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C. CONDITION ERRORS: (CATASTROPHIC) 


THESE PRINTOUTS REFLECT THE STATE OF THE TAPE SYSTEM 
EITHER BEFORE OR AFTER AN OPERATION 


- EOT: WHEN EOT (END OF han 1 IS ENCOUNTERED DURING 
EITHER A READ OR WRITE, THE CYCLE IS COMPLETED 
ON THE SHORTENED BLOCK AFTER WHICH THE SLAVE 
WILL BE REWOUND AND FLAGGED AS UNAVAILABLE 
FOR TESTING UNTIL ALL SLAVES HAVE ae ok EOT AND 
ARE REWOUND. WHEN THE LAST AVAILABLE SLAVE 
HAS REACHED EOT AND BEEN REWOUND TO . 
TESTING WILL BE RESUMED ON ALL SLAVES. 


2. ILLEGAL BOT: er A SLAVE ENCOUNTERS BOT DURING 
READ, WRITE, OR SPACE OPERATION, AN ERROR 
Ts PRINTED AND THE PROGRAM TED 
A CATASTROPHIC ERROR. 
BY PRESSING CONTINUE; BUT A RESTART IS 
SUGGESTED. 


- NO INTERRUPT RETURNED: EACH TAPE OPERATION SHOULD BE 
i. ta BY THE SETTING OF AN INTERRUPT IN 
THE CPU. IF NO INTERRUPT IS RETURNED WITHIN 
THE APPROPIATE TIME, AN ERROR IS PRINTED. 


- NO MEDIUM ote BEFORE AN OPERATION IS er 


E 
TESTING MAY BE RESUMED BY PRESSING CONTINUE. 


- NO BOT ON REWIND: AS EACH SLAVE IS REWOUND A CHECK 
IS MADE TO ASSURE THAT PROPER POSITION AT BOT 
IS ESTABLISHED. IF BOT IS NOT SET UPON COMPLETION OF 
A REWIND, AN ERROR IS PRINTED AND THE PROGRAM 
WILL HALT. PRESS CONTINUE TO RESUME TESTING. 


- POSITION — IF POSITION IS LOST DURING A RETRY, 
MESSAGE IS PRINTED, THE TAPE REWOUND, 
AND REMOVED FROM TESTING UNTIL ALL ARE 

RESTARTED AT BLOCK ONE. 


. BAD TAPE ELON: IF 20(8) BAD TAPE SPOTS ARE FOUND, 
MESSAGE of PRINTED, THE TAPE REWOUND, 
AND REMOVED FROM TESTING UNITLL ARE 
RESTARTED AT BLOCK ONE. 


. HARD READ ERROR: IF ANY HARD READ ERROR IS ENCOUNTERED 
DURING A RETRY, A MESSAGE IS PRINTED 
REGARDLESS OF THE SETTING OF Sw10. 


NON@RETRYABLE: IF ANY NON-RETRYABLE ERROR IS ENCOUNTERED, A 
MESSAGE IS PRINTED REGARDLESS OF THE SETTING OF Swi9. 
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D. EXAMPLES: 
GLOSSARY : 


H 2 
13:17 PAGE 20 


*D = DEN 
*PATRN = 


CURRENT BLOCK NUMBER 


READ STATUS ERROR 
SPACE ERROR 
TAPE 


_TE16 FRAME COUNT 
=_RH CONTROLLER STATUS 
TE16 DRIVE STATUS 

TE16 ERROR REGISTER 
ATTENTION SUMMARY 

TE16 CHECK CHARACTER 

RH DATA BUFFER 

TE16 sy ee REGISTER 
TE16 DRIVE TYPE 

TE16 SERIAL NUMBER 

TE16 TEST CONTROL 
DATA_FORMAT 

PARITY 


SITY 
DATA PATTERN NUMBER (R = RANDOM) 


SEQ 0020 
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EXAMPLE 1: IN A WP oo SLAVE 1 ON TMO3 0 WAS 
OPERAT 1600 BPI IN O00 PARITY a we 
L_ NORMAL DATA FORMAT. 


ITE STATUS ERROR WAS DETECTED. THE BAD 
STATUS INDICATES THAT AN UNCORRECTABLE DATA 
RROR_(BIT 6 OF ER) AND A PE FORMAT ERROR 

D DURING THE WRITE 


WAS TWO HUNDRED (200) 
RAMES. THE CHECK CHARACTER REFLECTS THE BAD TRACK. 


DRIVE oa QO *SLAVE NO. a 4 *P Q *F 14 *PATRN 1 
*BN 2 *RN 6-50 *RS = 300 * 
31 144260 


CS2 100 
DS 150640 
ER 300 
wC 0 

CK 4 


2: IN THIS EXAMPLE SLAVE 3 ON TMO3 1 

ee cue AT 800 BPI IN EVEN PARITY USING 
THE N CHANNEL NORMAL DATA FORMAT. 

READ STATUS ERROR WAS DETECTED DURING 

THE REVERSE READ OF THE TENTH (10) 

RECORD OF Pe 25 RECORDS ” THIS BLOCK (12). 
THE SIZE OF THE RECORD IS TWENTY (20) FRAMES. 
THE PRINTOUT INDICATES THE DETECTION OF A 
VERTICAL PARITY ERROR (VPE: B 


AS EXPECTED AND IS PRINTED SHOWING BOTH 

THE ACTUAL (FIRST) AND THE EXPECTED (LAST). 

DRIVE NO. 2 *SLAVE NO. 3 *D 3 *P 1 *F 14 *PATRN 3 
*BN 12 *RN 10-25 *RS 20 *RE R 

CS1 144276 

CS2_ 100 

DS 150600 

ER 100100 


wC 0 
CRC 767-777 
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EXAMPLE 4d IN THIS EXAMPLE, THE HEADER IS THE SAME AS 
EXAMPLE TWO (2) EXCEPT THAT THE ERROR TYPE 
IN THE FORWARD 


NORMAL FOR THE SYSTEM 

ERROR IN THE FORWARD AND 
REVERSE DIRECTION AT THE SAME 
REMEMBER T 


C 
THE PROPER POSITION IN BOTH FORWARD AND 
REVERSE. 


DRIVE , 2._*SLAVE NO. 3 *D 3 *P 1 *F 14 *PATRN 2 
*BN 1,5 N 10-25 *RS 20 *RE F 

CS1 144 30 

CS2 100 

DS 150600 

ER 100100 


wC 0 
CRC 767-777 


4: IN EXAMPLES 2 AND 3 THE READ _— 
RESULTED IN BAD STATUS, HOWEVER THE 

DATA ier yh aby THE OPERATION WAS 

NOT BAD (OR T CHECKED: SW 13=1) 

THIS EXAMPLE (4) SHOWS A PRINTOUT REFLECTING 
A READ STATUS ERROR ACCOMPANIED BY BAD 

DATA IN CHARACTERS FOUR (4) AND SIX (6). 


DRIVE NO. 2 *SLAVE NO. 3 *D 3 *P 1 *F 14 *PATRN 2 
*BN 12 *RN 10-25 *RS 20 *RE F 

CS1 144270 

CS2 100 

DS 150600 

= 100100 


67-777 
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EXAMPLE 5: THIS EXAMPLE SHOWS A READ DATA ERROR 
WHICH OCCURRED, WITHOUT AN ACCOMPANING 
STATUS ERROR, WHICH RESULTED IN A BAD RECORD. 


DRIVE NO. 3 *SLAVE NO. 1 *D 4 “e O*F 14 *PATRN R 
“en *RN 66-200 *RS 000 *DE F 


G 11111111 
B 00000000 


ssseseseseses 


CN 1 
G 11111111 
00000000 


Mr 


i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SOOCCOO 
Nm 
Ww 


BAD RECORD 


6: THE FOLLOWING EXAMPLE SHOWS THE 
RESULT OF A SPACE OPERATION THAT 

SHOULD HAVE SPACED REVERSE OVER 

AN ENTIRE 100 RECORD BLOCK BUT 

WHICH TERMINATED AT THE END OF 40 
RECORDS. LEAVING A POSITION ERROR OF 40 


DRIVE NO. 2 *SLAVE NO. De : O *F 14 
*BN 3 *RN 100-100 *RS 1800 *SE R 
ERR AMT wi 


SRRRRRRR 


oO 
wn 
DOONAN W 


~ 
So 
Ww 
No— 
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1054 

1055 

1056 EXAMPLE 7: THIS rine k Thee’ teak AN_ERROR DETECTED 
1057 WHILE WRITING A TAPE MARK (TM) AT THE END 

1058 OF THE CURRENT DATA BLOCK PER OPTION RESPONSE 
1059 TM=1._ NOTE THAT THE TM RECORD NUMBER 

IS ONE GREATER THAN THE TOTAL NUMBER OF DATA 
RECORDS IN THE CURRENT BLOCK. 


DRIVE_NO. 1 *SLAVE NO. 1 *D 2 *P 0 *F 14 
*BN . oat 101-100 *RS 36 *WE TM 


5S 


BERRERER 


2 
SE 


8: THIS EXAMPLE SHOWS TWO (2) PRINTOUTS 
REFLECTING A WRITE RETRY WHICH WAS NOT 
SUCCESSFUL _THE aad TIME, BUT WHICH 
DID RECOVER ON T ECOND. 

THE UNSUCCESSFUL YRETRY IS LOGGED AS 

A SUSPECTED BAD TAPE SPOT BY ITS 

BLOCK AND RECORD NUMBER. 


DRIVE NO. 0 *SLAVE NO. 2 *D 4 *P 0 *F 14 *PATRN 6 
*BN 2 *RN 12-20 *RS MG67 *WE 

CS1 iaaeeo 

CS2 100 

DS 150640 

ER 100 

wl 0 

***ORIGINAL ERROR*** 

DRIVE NO. QO SLAVE NO. 2 *D 4 *P Q *F 14 *PATRN 6 
*BN 2 *RN 12-20 *RS 667 *WE 

CS1 144260 

CS2 100 

DS 150640 

ER 100 

we 0 

SUSPECT BAD TAPE 

RETRY: 0 


REPT: 9 
RECOVERED 
RETRY: 1 


1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 





8 


M 2 
TMO3-TE16/TU77 DRT MACY11 30A(1052) 21=DEC-78 13:17 PAGE 25 
-P11—-15=NOV=78 13:19 SEQ 0025 


—— as OTT 


EXAMPLE 9: IF , DURING A WRITE RETRY THE BACKSPACE 
OR SULT IN AN ERROR, 
AND THE PROGRAM 
EXAMPLE SHOWS THE ERROR PRINT 
FOR A SPACE AND AN ERASE (2 EXAMPLES) 


DRIVE NO. 1 *SLAVE NO. 1 *D 3 *P 0 *F 14 
BN 12 *RN 8-64 *RS 500 *SE RTRY 
ERR AMT 1 


DRIVE _NO. 1 *SLAVE NO. 1 *D 3 *P 0 *F 14 
5aN 8-64 *RS 500 *ERASE 


10: THIS EXAMPLE SHOWS THE PRINTOUT FROM 
A REWIND OPERATION WHICH DCES NOT HAVE 
BOT SET AT THE END. 


DRIVE NO. 2 *SLAVE NO. 3 *D 3 *P 0 *F 14 

*BN 66 *RN 15-20 *RS 1000 

NOT BOT ON REWIND: HALT 

11: THIS EXAMPLE SHOWS THE PRINTOUT MADE WHEN 
THERE IS_NO_ INTERRUPT RETURNED AT THE END 

OF AN OPERATION. 


DRIVE NO. 7 *SLAVE 7 *D 2 *P 1 *F 14 


NO, 
*BN 1 *RN 25-26 *RS 1200 
NO INTERRUPT 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ed td a ed 
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STATISTICS PRINTOUT 


THE PROGRAM, THROUGH ITS ERROR CHECKING, IS ABLE TO GATHER CERTAIN 
STATISTICS ABOUT THE PERFORMANCE OF EA TEST. 


I ORMANCE 
TISTICS WILL BE CLEARED UPON REWIND OF THE 
UNIT; BUT NOT BY SETTING Sw 14. 


STATISTICS PRINT EXAMPLE (A HEADER WILL PRECEED THE STATS) 


>030006450 
S$: 10000002 


OW fF O- NWN 


EV: 
2 BAD TAPE SPOTS 
0 *BN 1 *RN 2 

1 *BN 15 *RN 100 


** NOTE ** DROPS AND PICKS REFLECT CORE BIT POSITIONS. 
THE FOLLOWING IS A TABLE OF CORE BITS TO TRACK NUMBER, 


TRACK NO. 76539182 
CORE BIT 76543210 


DATA BITS DROPPED: PER CORE BIT(SEE NOTE ABOVE) 
OF DATA BITS PICKED UP: PER CORE BIT(SEE NOTE ABOVE) 

WRITE RETRIES 

WRITE ERRORS NCT ASSOCIATED WITH BAD TAPE 

READ FORWARD STATUS ERRORS 

READ REVERSE STATUS ERRORS 

RECOVERED READ ERRORS 

UNRECOVERED READ ERRORS 

FORWARD DATA ERRORS WITH NO ASSOCIATED STATUS ERROR 
REVERSE DATA ERRORS WITH NO ASSOCIATED STATUS ERROR 


DB 
37 
38 
9 
.¢) 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4, 
5 
6 
7 
8 
9 
1 
2 
3 
5 
7 


3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
60 
6 
6 
6 
1164 
6 
66 
6 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
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SEUR 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1204 
1 
1 
1 
1 
1 
1 
’ 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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AUTO SEQUENCE 


THE AUTO SEQUENCE (START AT ADDRESS 240) WILL EXECUTE A 

PREDETERMINED TEST PLAN ON * 

AVAILABLE TMO3. THE ONLY RATOR 

REQUESTS FOR THE RH ADDRESS, VECTOR, CONTINUOUS SINGLE 

NRZ ONLY. ~ SWITCHES REMAIN ACTIVE AND MAY BE 

NORMALLY; HOWEVER THE IDEA IS TO LEAVE ALL SWITCHES 

DOWN AND ALLOW FULL EXECUTION OF THE TEST PLAN FOR 

SYSTEM CHECKOUT. 


SAMPLE START AT 240(8): AUTO SEQUENCE. 
LOAD ADDRESS 240(8), SET SWITCHES TC ZERO, PRESS START: 


TE16 AUTO SEQUENCE TEST 
ENTER CONDITIONS IN OCTAL 


REGISTER START = 172400(172440) 
VECTOR ADDRESS = 224(CR) 

NRZ ONLY: (0) 

AUTO CONT: (1) 


THIS EXAMPLE SHOWS AN AUTO SEQUENCE START WITH THE RH 
AT BUS ADDRESS 172440 AND A VECTOR OF 224. ALL AVAILABLE 


HARDWARE WILL BE TESTED CONTINUOUSLY IN BOTH NRZ AND PE MODE. 


AS _EACH TMO3 AND _ITS SLAVES ARE FOUND, A DIVIDER LINE OF 
ASTERICKS WILL BE PRINTED FOLLOWED BY A PRINIOUT GF THE 
TMO3 AND ITS SLAVES BEING TESTED. AS EACH TMO3 AND 

ITS SLAVES ARE FINISHED, ANOTHER DIVIDER IS PRINTED 
BEFORE TESTING IS RESUMED ON THE NEXT AVAILABLE DRIVE. 


— ALL AVAILABLE HARDWARE HAS BEEN y ae 

PRINTOUT OF END OF SEQUENCE WILL BE DONE AND THE 
PROGRAM WILL EITHER HALT (AUTO CONT = 3 = RESTART WITH 
THE FIRST AVAILABLE UNIT (AUTO CONT = 


SEQ 0027 
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— 4 


P 


SB & 


AUTO SEQUENCE TEST PLAN: 


THE AUTO SEQUENCE WILL EXECUTE BOTH AN NRZ AND A PE 
CYCLE. EACH CYCLE WILL BE STARTED FROM BOT AND CONSIST 
OF VARIOUS DATA PATTERNS INTENDED TO BE WORST CASE 

FOR THAT PARTICULAR MODE. 


1. NRZ CYCLE: 


SIX (6) Waeck OF ONE HUNDRED (100) RECORDS 
OF FOUR THOUSAND (4000) CHARACTERS FOR 
EACH OF THE FOUR DATA PATTERNS. 


PATTERN 1: ALL ONES DATA IN ALL BYTES 
PATTERN 10: WALKING ONE/ALL ONE 
PATTERN 14: WALKING ZERO/ALL ZERO 
RANDOM DATA: RANDOM 


2. PE CYCLE: (IF NRZ ONLY = 0) 


SIX BLOCKS OF ONE HUNDRED (100) RECORDS 

OF FOUR THOUSAND (4000) CHARACTERS EACH FOR 
EACH OF THREE DATA PATTERNS, THEN RANDOM 
DATA BLOCKS TO END OF TAPE. 


PATTERN 10: WALKING ONE/ALL ONE 

PATTERN 14: WALKING ZERO/ALL ZERO 

PATTERN 15: THREE (3) 0 CHARACTERS, TWO (2) ALL CHARACTERS, THREE 0 
THEN COMPLIMENT PATTERN. REPEATED FOR A FULL BUFFER 

RANDOM DATA: RANDOM 


GEAEAGSS 
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TESTING PROCEDURES 


AINS_NO 
THE ENTIRE TES. CYCLE TO BE EXECUTED 
BY THE OPERAT HOUGH SES T 


I 
RATION. THE OPERATION SELECTED WILL 
BE EXECUTED WITH THE PARAMETERS wiry CONTINUOUSLY 
BLOCK AT A TIME, UNTIL 
THE OPERATION MAY BE CHANGED 
CONSOLE SWITCHES 7 ANY 
TO PERFORM TION 


Y OPERA 
TAKEN _TO ASSURE THAT 


ANY, 
R, IF HAS BEEN WRITTEN WITH 
._1T CAN BE READ AS OFTEN AS DESIRED WITHOUT 
BEING REWRITTEN. THIS IS A F 
TESTING TAPE COMPATABILITY. 


CONTI! 
Y USING THE VARIOUS ERROR CONTROL SWITCHES ~~ —_! 
THE NEEDED STALL, ANY FUNCTION CAN BE SCOPED RATHER 
RELIABILITY TESTING CAN BE PREFORMED BY USE 
A PERHAPS A_CYCLE OF 
BE SET UP_AND ALLOWED TO RUN 
F F TIME, THE STATISTICAL COLLECTION 
OF DROPS AND PICKS IS THEN SIGNIFICANT. INTERMITTANT 
PROBLEMS CAN BE FOUND BY SETTING THE DESIRED OPERATION 
* MOTION AND DISALLOWING ERROR PRINTOUTS WHILE ALLOWING 
A_HALT ON ERROR. THE ERROR THAT CAUSED THE HALT CAN 
BE PRINTED BY RESETTING CONSOLE SWITCH TEN AND PRESSING 
CONTINUE. _IF SOME PARTICULAR DATA PATTERN SHOULD BE 
CAUSING DATA_ERROR, USE OF THE YOZZLE SWITCH AND ITS 
ASSOCIATED STALL WILL TO ALLOW SCOPING OF THIS 
PARTICULAR RECORD. 


AS YOU SEE, THERE ARE an hon TESTING PROCEDURES WHICH 
COULD BE PERFORMED. THE PARAMETERS, TAPE OPERATIONS, ERROR 
EXAMINATION AND REPORTING ARE ALL AT YOUR DISCRETION. 


TRY IT, YOU'LL LIKE IT. 


Seorare 


au 
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LIST BIN,LOC,S 
TITLE CZTEDBO fhO3-1E16/TU77 DRT 
;DATA aa 
~A800B-M 


ZAC~ 
72] FEB i979 


J.G.ADAMS 
REVISED (++B) J.G.ADAMS MAY 1978 1) INCORRECT RECORD COUNT 
++B STORED WHEN EOT REACHED ON WRITE 
2)ADJUST STACK PTR ON BAD i OVFLW 
aay TU77_TEST CAPABILITY 
4)DOES NOT GENERATE LRC/CRC ON FIRST 
RECORD IN AUTO ACCEPT MODE 


-MCALL .$ACT11,.$EOP,SSAVE ,SRESTORE , $CHAIN 
-NLIST MC 

AIS! © 

-ENABLE ABS,AMA 


: CONSOLE SWITCHES *®*eexxxknnne 


;SW15: 1=STOP_ON ERROR 

: O=CONTINUE ON ERROR 
3SW14: 1=PRINT  okeer xt STATS 
: 0=DO NOT PRINT STATS 
7SwW13: NOT CH Ae DATA 


: DAT 

iSW12: CHECK phe ERRORS 
: WRITE ERRORS 
;SW11: CHECK READ ERRORS 
: READ ERRORS 

;SW10: PRINT ERRORS 

; co oe 


WI 
O=DO NOT "REWIND 
1=USE_ RANDOM DATA 
O=USE FIXED DATA PATTERN 
1=USE_ RANDOM CHARACTER COUNT 
O=USE FIXED CHAR COUNT 
1=USE_ RANDOM RECORD COUNT 
O=USE FIXED RECORD COUNT 
1=YOZZLE “whe” RECORD 


0=DO ~ a4 E 
READ nee WRITE RETRIES 


—_' 


WINWWWWWWINIWIN WWW 
MVM 2S 33S 55555 


WN 9 ODBNAMNRW CO OONAUSWWN-O 


WWAWWPNRPNP 


WW 
See 
OONAW 


WOONA MEW O 


CO 


O=READ FORWARD 
1=D0 NOT READ REVERSE 
O=READ REVERSE 
1=RZAD FORWARD ©IRST 
O=READ gy FIRST 
1=D0 NOT WRITE 


O=wRITE 
£15: :00> = 177777 OR NOT AVAILABLE USE SOFTWARE SWITCH REGISTER 


1 
1 
7 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} 
1 
7 
1 
1 
1 
1 
1 
1 
1 
4 


FRRRARARARARAREKE KEKE LE 


NS ODOWNAWEWH = 
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3 TMO3-TE16,TU77 REGISTER BITSeexnnnnnn 

215 314 313 312 311 310 09 ;08 ;07 ;06 ;05 ;04 ;03 ;02 ;01 ;00 ; 
£9008000%50001505 0590050000 0905 X09 5005005005000 00 IORI 
2SC 7 TRE; sMCP; SPR; s DNA; PSL; sA17; sAl6; RDY; IE #FUN; FUN; FUN; FUN; FUN; GO ; 


£001300000130005 000150003 0005000300050005 0001005000100 5000 010K 


SUSSEE 


& 
moO 


; COUNT ; 
JCI erreniee comp enemanmmppinnsey repent 


; BU . 
: ADDRESS 

= poreeee eeequaeraneimpengraree ver 
> COUNT : 
| XXXII II III HHH IIIIIIIII HHH 
:DLT:WCE;UPE NED; NEM; PGE ;MXF;MDP;OR ;1R ;CLR;PAT;BAI:U2 :U1 U0 ; 


200500080000 00000000 000000000000 00000000 0005 000 0000 TOITOOIK 
2ATA;ERR;PIP;MOL ;WRL;EOT; SPR; DPR; DRY; SSC ;PES; SDN; IDB; EOF ;BOT; SLA; 


TOXIC IICIOKICIOXOCIOIC OCI IIIOI IO IICII OCI III 
: CDE: ;UNS;OP1;DTE:NEF:CS|:FCE;NSG: PEF; INC; DAT; FMT; CNT:RMR; ILR; ILF ; 


: 11; 7;LRC; VPE ; BPE; 
Z £79083 001300050005009 000130008 00050001 00000005000 000300 ITOK 


+ SUMMARY : 
5 MAKKAH XK XW H HH HHH HHH HICH HHH HHH HK 
: CHARACTER : 
| Olegatens mipsareneourereermenneceeccqnnmnren 


: BUFFER : 
gee EE Ee ee ee 
. * ni ° * o e 0: e Pp oe =CLK *CLK: 4: 3 : 2: eo oe o 
£100 0005005 0050519080000 0X0 HHH OTK TOI IT 


e e e Ps e ; ‘ P e ° Py e ° ° 45; 
SIPS: IPS: IPS: 

eolonuiooadsaaleondooudosdoonioondonadooodoondoansoaiioens 

. L . 

; NUMBER 

5 YOK IKI HII HII HHH HHH IIH IIH KI IIH III 

sACL; sFCS; TCW; ENA; SPR; ; DEN; s DEN; DEN; FMT; SFMT; FMT; SFMT; A ty S SSN; ie 


Le 4 
£01300 00000050000 000000 0000500000000 00000010 GOIK IKK 


all il cal cal acl cach coal lh tl lt es 
NNN 


WWWNWNWG 
N 
W 


a 4 4 Ys 
ygerreteis 
COOONAWE 


ane 


BERSE 


3 


O00 
Wr 


; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
, 
; 


SSSs33y8 
RAR 
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oe 
SS ¢ 


TRAP CATCHERS *tasteeennn 

990020 .=20 
“WORD  TTOUT ;SET IOT TRAP TO_TTOUT ROUTINE 

WORD 340 SPRIORITY LEVEL 7 

TYPE=10T ;EQUATE TYPE TO AN IOT INSTRUCTION 

“WORD octP ;SET TRAP TRAP TO OCTP ROUTINE 

-WORD _ 340 

TYPOCT=TRAP ;EQUATE TYPOCT TO TRAP INSTRUCTION 


3ACT11 HOOK *kkeeeeen ee 
$SvPC=. :SAVE CURRENT LOCATION CTR 


-=4 
ie SENDAD SET LOCATION 46 


"WORD O :SET LOCATION 52 = 0 
* =$SVPC ‘RESTORE LOCATION CTR 


pets INTERRUPT VECTORe«xtenwnne 


«WORD TTINT TTY INTERRUPT HANDLER ADDRESS 
000340 -WORD 340 PRIORITY LEVEL 7 


sSOFTWARE SWITCH REGISTER*&axwnwmn 
: INVOKED IF SWR <15::00> = 177777 OR NOT AVAILABLE 
000176 =176 


000600 3: WORD 0 
py ADDRESS *txeetnen 
003022 MP START ZENTER PARAMETERS VIA TTY 


.=204 

003136 jMP | STARTC USE FIXED PARAMETERS; HOLD DATA 
.=210 

014404 CLR sORDFL 

003144 MP STARTA USE FIXED PARAMETERS: NEW DATA 
:MAG TAPE INTERRUPT VECTOR**seeenuns 
+226 
RrINT :MAG TAPE INTERRUPT HANDLER ADDRESS 


ZAUTO SEQUENCE START exeenenene 


3 os os SS 2 Ls 4 2 6 
BERSERKER ES 
NON 3 S 2 S 2 2 SS es 
—OOONAWESWN— 


o =240 
000734 INC ASE QF :SET AUTO SEQUENCE FLAG 
003122 JMP STAUT :GO TG START OF AUTO SEQUENCE 
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SHORT CONVERSATION RESTART *eeaxxen 


.=300 * 
013444 INC SCVFL :SET SHORT CONVERSATION FLAG 
003022 JMP START SENTER SHORT PARAMETER LIST 


-=510 
3TU16 REGISTER EQUIVS***ennane 
172440 


172472 
SCONSTANTS#eeennnnee 


172440 STARTING REGISTER ADDRESS (CS1) 

24 :VECTOR ADDRESS (RH INTERRUPT) 

0 ;DRIVE NUMBER 

0 [UNIT DESCRIPTION (PARITY,DENSITY,UNIT, FORMAT) 

100 RECORD COUNTER 

177400 sNUMBER OF CHAR (4 = 4000) OCTAL cP ras COMPLEMENT 
1 :DATA PATTERN SELECTOR (0 = 15) OCTA 

0 : AD COMMAND 

; TAPE MARK FLAG: 1=TM O=NO T. 

>CRC CORRECTION A (YES=1 "NO=0) 
; INTERCHANGE ae 1=YES O=NO 

i SINGLE PA 7 =YES O=NO 


; NUMBE 
:PROCESSOR STATUS 

CONSOLE SWITCHES 

TTY READ Mee: REGISTER 
STTY READ BUFFER 

:TTY PUNCH STATUS REGISTER 
:TTY PUNCH OUTPUT REGISTER 
:H/S READER srs REGISTER 
;H/S READER BUFFER 

RAND 


SLE 


5 
400 [FRAME COUNT SAVE 


; 
0 
0 
0 
: 
1 
1 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
0 
1 
1 


NO Santana 
Ww N 


ae ae ed ad ce ee nd ond ed end ee ced 
RPAAANAADIAAAII V1 
NOAMOERWN Oo 

NO 


— 8 es 6) ot os 
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NING 


44 
ee 


an 
Vi 


UNASIRBVRARNNLSoe & 


;FLAGS AND COUNTERS***eannane 
;TTY ENTRY FLAG 


: TTY OUTPUT BUFFER 
: TTY INPUT BUFFER 


; STORAGE 

ERROR MSG ADDRESS STORAGE 
BLOCK COUNTER 

:BAD wi COUNTER 

:EOT FLAG 


EINTERRU RETURN STORAGE 
;HEADER FLAG 

;DELAY STORAGE 

PRINT FLAG 

[MAG TAPE CONT — BUFFER 
;UNIT TABLE POINTER 


PVT AVAVST AAI A AIST STATISTI II 


SRBGEAE 


RETRY FLAG 

sUNIT POINTER SAVE 
:BITS DROPPED POINTER 
BITS PICKED POINTER 
zERROR SAV ; LOC 

:BAD TAPE FLAG 
STATISTIC PRINT FLAG 
:BAD TAPE POINTER 
ZERASE FLAG 


:AUTO SEQ FLAG 
AUTO BLOCK COUNTER 
AUTO SEQ CONTINUOUS FLAG 


EFELELEEFEK 


MEWNM | DOONAUSWN—O 
OOD WDOOCCCOVOVOCWVVODOVDOOODOVOCOODOOOODOO OC + 


4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


MAAS 
MADINA 


000000 
000000 ASEQCF : 





3 

CZTEDBO TMO3-TE16/TU77 . T MACY11 30A(1052) 21-DEC-78 13:17 PAGE 35 
CZTEDB.P11 15-NOV=78 13:1 SEQ 0035 
UNIT ORDER AND DESCRIPTION TABLE **exxnnnne 

Bees TABLE IS LOADED 

WITH UNIT NUMBERS AND 
“THEIR ee he IN 
: THE ORDER T THEY 


WILL BE TESTED 


at 
VIVIMIVIVAIVIW 
EROSSOGS | 

1 COODODOOOO + 


SaEee 


;UNIT DROPS AND PICKS POINTERS *** ata t we 


we 
JON 
So 


SSN 
wn 


- 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
15 


ZUNIT BAD TAPE POINTERS **exenwnee 
BIADDR: ery 


SUNIT WRITE RETRY COUNTER®«etanenwe 
:SET START OF STATISTICS TABLE 
STTBL: 


CODdVOOOO0OO 
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oO 
— 


SUNIT WRITE ERRORS *teannnnnn 


o mn 


aad aad aed cat cd ead ch 
lelelealelelelela) 


ZUNIT READ FORWARD ERRORS **t*aennee 


S8Sseses 


NSaRVNoeR 


eloleleleleleals) 


sUNIT DATA ERRORS FORWARD ** etx ne 
DATER1: 


sgesssss 
SSWRVERE 


0 
0 
0 
0 
0 
0 
0 
0 


UNIT READ REVERSE ERRORS *«ekxnrtane 
RNDERR1: 


~~ 44 3 4 4 4 


0 
0 
0 
0 
0 
Q 
0 
0 


S8888sss 


ZUNIT DATA ERRORS REVERSE *exanannnn 
DEREV1: 


_ Sesssses 
VSaRVase 


a) 
Q 
Q 
0 
0 
0 
0 
0 


Nonny a a oo ee 
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:DROPS + PICKS PER CHANNEL PER UNI Texannannns 
001204 
001224 
001244 
001264 
001304 
001324 
001344 
001364 
001404 
001424 
001444 
001464 
001504 
001524 
001544 
001564 


o- © 
" 


or oO 


Bey 


SEREESERE 


." 
." 
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38 


;UNIT BAD TAPE COUNTER: 16 PER SLAVE***«aanwwe 


SSS 


=.+102 
.=.+102 
.=.+102 
=.+102 
=.+102 
.=.+102 
.=.+102 
-=.+102 
;UNIT END OF TAPE COUNTERS 1 PER SLAVE**s««%® 


3 
N 


DONRNRWW=ODS 


NNN 
NANIIIAA> 


NN NNN NN 
PAISISLRHNOAS 
elelelelelelele) 


;UNIT READ FORWARD SOFT ERROR****«x« 


a 


RF SOFT: 


ay 


SS 


Ww 
NM —OSOdONA WS Wr—OO 


0 
0 
0 
0 
0 
0 
Q 
0 


UNIT READ REVERSE SOFT ERROR******* 
RRSOF T: 


0 
C 
0 
0 
0 
0 
0 
0 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
175 
1 
1 
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;UNIT READ FORWARD HARD ERROR****#«x 


ialolelaleleleale) 


UNIT READ REVERSE HARD ERROR*****«* 


leleolelelelolelea) 


;SET END OF STATISTICS TABLE 
ENDTBL: 


;DATA PATTERN GENERATORS* **taekennne 


ENTRY TABLE 
EXTERNAL INPUT FROM H/S READER(SEE MAINDEC~11~-D2ZTUF ) 
zALL ONES 
sALL ZEROS 
WALKING ONE 
;WALKING ZERO 
[ALTERNATING a Ae 
;ALTERNAT ING ZERO 

L TERNAT ING ONE / ZERO IN ALTERNATING CHARACTERS 

OnE cau L ONE IN ALTERNATING CHARACTERS 


WFIRASISINIZI 


N 


: 7-0 
SALTERNATING CHARACTERS 0 AND 377 
: WALKING ZERO/ALL ZERO IN ALTERNATING CHARACTERS 
DATA15: ;AUTO SEQUENCE PATTERN 0,0,-1,-1,-1,0,0 


1 
7 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SN 
SIPIIIISS 
OOOO OCOCO0OO°O 
eed ed eed od od od wd = =D 


NEWS 


g 





SENBGRORSOSe B 


00 00 00 00 00 00 C0 C0 C0 CO 
ab a atl enh and ai ach anh aa 


CNAUSWN—OOONAUS WN OO 


me et as td 2 =) 28 a 2 2 6d 2 2 2 as oh a 9 


$® 9 Gc 08.00 G0 00 G0 00.6 oo 
bap Setetectetetrettesten 


—_— Se oe ot) I 3 os es 
AARARR EERE RE 
WO OOONAU RWI 
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- EVEN 


FEAR ERK EK 


; PROGRAM START AND SEQUENCE FORMATTER: 


THIS ROUTINE IS USED TO PERFORM ALL HOUSEKEEPING, 
:DECIDE WHICH TRANSPORT TO TEST AND ITS AVAILABILITY, 
LOAD THE WRITE BUFFER von THE ran bee 1 PATTERN, 


GENERATE ANY RANDOM NUMBER AND T XECU 
hg TEST CYCLE REQUESTED BY THE SWI TCH SETTING. 

T THE END OF THE TEST CYCLE THE NEXT UNIT IS SELECTED 
“AND oes tne AVAILABILITY AND THE TEST CYCLE IS 


4 ECUTED I 
THE READ WRITE STATS MAY BE PRINTED AT THE “a . 
“EACH TEST CYCLE VIA CONSOLE SWITCH FOURTEEN (14 
opt I a Roh enter Rt rel eh Li RE 
SSTART 200, & 300%«xaknnnne 
003022 012706 000500 START: MOV #590,SP sSET STACK PTR 
003026 005037 000734 CLR ASEQF ;CLEAR AUTO SEQUENCE FLAG 
003032 005027 CLR (PC) + 7éCLEAR CHAIN INDICATOR 
003034 000000 CHNFLG: .WORD 0 :CHAIN MODE INDICATOR 
t:1/ 0 = CHAIN/NOT CHAIN MODE 
003036 005737 000042 TST ase > BRANCH IF IN DUMP MODE 
003042 001407 BEQ 50$ 
003044 012737 000176 000610 MOV ASWREG, SWR 32: INVOKE SOFTWARE SWR 
003052 005237 003034 INC CHNFLG 72SET CHNFLG = CHAIN MODE 
003056 000137 003062 -_ JMP 3$ 3:GO TO CHAIN ADDRESS 
003062 122737 000006 000041 3$: CMPB #6, 0441 ;BRANCH IF LOADED VIA TMDP 
003070 001003 BNE 4$ 
003072 000004 026112 TYPE ,MSG120 ;ADVISE USER TO REMOVE TMDP FROM SLAVE 
003076 000000 HALT 
003100 005737 003034 4$: TST CHNFLG sSEE IF IN CHAIN MODE 
003104 001406 BEQ STAUT 
003106 005237 000734 INC ASE QF SET " SEQUENCE FLAG 
003112 000004 024155 TYPE ,MSG30 ;TYPE TITLE 
0037116 000137 021226 JMP ASEQO G0 TO AUTO SEQUENCER 
SSTART 240 ea wk eka k ee 
003122 012737 000001 000636 STAUT: MOV #1,TINF sSET TTY ENTRY FLAG 
003130 005037 014404 CLR RDFL ;CLEAR RANDOM DATA FLAG 
003134 000405 BR STARTB 
ZSTART 204kk kak k kee , 
003136 005037 000636 STARTC: CLR TINF :CLEAR TTY INPUT FLAG 
003142 000442 BR STARTD 
SSTART 210 eeakekema® 
003144 005037 000636 STARTA: CLR tes :CLEAR TTY ENTRY FLAG 
003150 012700 000640 STARTB: MOV #STFLG,RO :GET STARTING ADDRESS OF FLAGS 
003154 012701 000074 MOV #ENDFLG~STFLG,R1 
3160 105020 1$: CLRB (RO) + ;CLEAR FLAGS AND COUNTERS 
003162 005301 DEC R1 
31 001375 BNE 1z 
003166 012706 000500 MOV #500,SP 3SET STACK POINTER 
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004122 PC, RANSET :GO RESET RANDOM BASE 
001044 #STTBL,RO ‘GET STARTING /DDRESS OF STAT TABLE 
901720 #ENDTBL=STTBL,R1- -AND # OF BYTES IN TABLE 

: (RO) + Z CLEAR sfalistic. COUNTERS 


2$ 
000742 AUNT ,RO :SET ALL SLAVES ON-LINE 
177777 : #-1,(RO) ;BRANCH IF AT END OF TABLE 


040000  aapmacagtacié sMARK SLAVE ON=LINE 


BR 
177777 ~=013652 #-1,PATS PRESET PATTERN 
000001 000654 #1,BLCNTR PRESET BLOCK COUNTER 
SAVE ERROR TRAP VECTOR 


000610 #SWREG, SWR BRANCH IF SOFTWARE SWR 
2$ ALREADY SELECTED 
003314 000004 { #1$,a44 ;SET TIMEOUT TRAP TO 1$ BELOW 


000006 a6 
177777 + 175300 MP #177777 ,ASWR s;BRANCH IF SWR = 177777 TRAP 
2$ :1F aaa (1$) OTHERWISE 


3$ :GO TO 
1$: (SP) +, (SP) + RESET STACK 
000176 000610 : SET _SWR = SOFTWARE SWR 
000006 3$: RESTORE ERROR TRAP 
000004 
000500 


011750 :GO GET PARAMETERS FROM TTY 
000040 175146 s INITIALIZE 

: RO POINT 70 FIRST ENTRY 
177777 + 000742 : . BRANCH IF LAST ENTRY 


000742 #100000,UN1(RO) ;CLEAR EOT FLAG 
#2,R0 :POINT TO NEXT UNIT ENTRY 
BR 1 CONTINUE CLEARING 
004730 2%: REOTC+1,REOTC RESTORE EOT COUNTER 
175176 : #100,aTKS 7 SET KEYBOARD IE BIT 
000674 UNP ,RO ;RO = UNIT TABLE POINTER 
177777 000742 ; 4-1 ,UN1 (RO) BRANCH IF LAST ENTRY 


STAR1B 
000742 000552 UN1 (RO) ,UDES ;LOAD NEXT UNIT DESCRIPTION 
BR START4 


000654 : :BUMP BLOCK COUNTER 
000734 : SEE IF AUTO SEQ 


TAR1C :1F NOT: BR 
000654 000736 BLCNTR,ABLCNT +SEE IF DONE SEQ 
STAR1C NOT: BR 
000654 BLCNTR TRESET BLOCK CNTR 
000674 UNP RESET UNIT POINTER 


PC RETURN TO AUTO SEQ 
000674 | UNP 


RO 
000742 000552 UN1 (RO) ,UDES LOAD FIRST UNIT DESCRIPTION 
175074 aSwR SEE IF RANDOM RECORD SIZE 
START2 :1F NOT: BR 
011664 PC,CCNTR [GO GENERATE RANDOM RECORD SIZE 


EREFEREREE 


Pp 
Sse 


000? 
com 
an 


— HI YS oo 
CRENE 
BION 


SEI et ee RRS ACRE tt det Set tot 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
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D 4 
CZTEDBO TMO3-TE16/TU77 DRT MACY11 30A(1052) 21=DEC-78 13:17 PAGE 42 
CZTEDB.P11 15=NOV=78 13:19 


032777 000400 175060 START2: BIT #400, aSWR 418 IF RANDOM DATA 
BEQ START3 F NOT: BR 
014342 ‘60 GENERATE RANDOM DATA 


4 32 


WONAVUSWN—O 


J PC,DATR 
000100 175044 STARTS: #100, aSWR : SEE IF RANDOM RECORD COUNT 
BE START4 F NOT: BR 


011724 J PC,RCNTR 60 GENERATE ‘Cart & aa COUNT 
140000 000742 START4: oe i 


000040 174730 

00055€ 174722 

000552 174736 : VE NUMBER 

174712 : DS 7SEE_IF SLAVE AVAIL 
BM 2$ ; IF SO: BR 


a a ed 8 8d 2 od 6 2d) =) 3 
SSS SSSSS23323 | 
NY) 


°] 


000666 
AWAIT 


1$ TUR 
020312 j :GO MARK yy Fite 
O$: PC,DS >G0 ir UP WRITE D 
INIT SLAVE 
;REWIND 
WRITE 
000666 MOV SET TURN AROUND DELAY 
PC,STAL 


;DELAY 
;GO TO READ SEQUENCER 
000666 TSTAL tte 3SET — AROUND DELAY 


:DELA 
17470€ #40000-aSWR > SEE IF SHOULD PRINT STATISTICS 
START7 :1F NOT: BR 


SET RECORD COUNTER TO 1 
:PRINT CYCLE NUMBER 
:GO_ PRINT STATS 
SET STAT ONLY PRINT 
PRINT a TAPE STATS 
CLR ;CLEAR FLAG 
800008 600674 START7: ADD , INP :POINT TO NEXT UNIT 
000621 START8: BR START = CONT INUE 
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prteeeexeetee SUBROUTINE TO PRINT STATISTICS «xaxnnnnnn 


916370 STP: JSR PC,DPPRT ;PRINT DROPS AND PICKS 
TYPE ,MSG65 TYPE MSG 


V UNP ,R 
MOV RTY1(RO) ,R3 
OCT :PRINT RETRIES 
025232 673 S TYPE MSG 
001064 MO WTER1(RO) ,R3 
; YPOCT :PRINT WRITE ERRORS 
025221 672 ‘TYPE MSG 


001104 MOV RDER1(RO) ,R3 
TYPOCT PRINT READ FORWARD ERRORS 
025777 TYPE .MSG113 TYPE MSG 
002664 MOv RF SOF T(RO),R3 

TYPOCT PRINT FORWARD SOFT ERRORS 
026010 TYPE .MSG114 : TYE MSG 
002724 MOV RFHARD (RO) ,R3 

TYPOCT PRINT HARD FORWARE ERRORS 
025316 TYPE ,MSG77 TYPE MSG 
001124 MOV DATER1(RO!,R3 

TYPOCT PRINT DATA ERROR FORWARD NUMBER 
025153 TYPE ,MSG68 ; TYPE MSG 
001144 MOV RDERR1(RO),R3 

TYPOCT PRINT REVESE ERROR NUMBER 
025777 “ TYPE .MSG113 TYPE MSG 
002704 MOV RRSOFT(RO),R3 

TYPOCT PRINT REVERSE SOFT ERROR 
026010 TYPE ,MSG114 : TYPE MSG 
002744 MOV RRHARD (RO) ,R3 

TYPOCT 
025305 TYPE .MSG76 ; TYPE MSG 


001164 MOV DEREV1(RO) ,R3 
PRINT DATA REVERSE ERROR NUMBER 
PC RETURN 


BASE RESET exexxannnn 


000626 RANSET: #153624,RANBAS ;RESET BASE 

0006 30 M #32561,RANSAV ;RESET BUFFER 
000554 RCSAV,RCNT RESET RECORD COUNT 
000556 | ele RESET FRAME COUNT 


RRKRK 
CONnW 


~rrererree rele Se ee Pe eee eee 
BOVSQOOO000 
MAAN AVIV) 
WODWNAUSWN OO 


SRSSRERES 
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013777 


NONIN INN Ss 
MN -OYNSOUW 


spepeeseseesases 


2 

27. 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 


$3 


000552 
000674 
040000 


000011 
174312 


000007 


025672 
000001 
025525 


023656 


002644 
025550 
000724 
003744 
Ror 66 
000674 

040000 
174126 
000666 
020312 
004730 
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174360 
000742 
174304 


174270 


000724 
004 306 
000724 
004 306 


0007%2 


FRR REE RRR KR REREKEKEREEKEE RE K 


; REWIND FROM EOT: 


WHEN ANY TRANSPORT BEING TESTED REACHES END OF TAPE 
;DURING A READ OR WRITE OPERATION, IT WILL BE REWOUND 

AND FLAGGED AS UNAVAILABLE UNTIL ALL AVAILABLE UNITS 

sHAVE REACHED EOT AT WHICH TIME ate TESTING WILL BE RESUMED 
AT A BLOCK COUNT OF ONE (1). A MESSAGE WILL BE 

PRINTED ON THE SUPERVISORS CONSOLE AS EACH UNIT REACHES 
:EOT AND IS REWOUND. 


TACOS III IO IOC IOI IIIS DOI III III 


UDES, arc :LOAD TAPE CONTROL REGISTER 
‘GET UNIT POINTER 
#40000 .UNT (RO) ‘BRANCH IF UNIT MARKED OFF-LINE 


#11,aC1 sDRIVE CLEAR 
aDSs WAIT FOR DRY 


1$ 

#7 ,aC1 START REWIND 

BIFLG SEE _IF BAD TAPE OVERFLOW REWIND 
z F SO: BR 


OTREC RO 
100006, RO :SET RECORD NUMBER OF 
CLEAR EOT INDICATOR e REC COUNT 
[PRINT HEADER 
:SEE IF ae ERROR 


: IF NOT: 
gee ;SET POSITION ERROR MSG 


BR 

4$: #1,BIFLG sSte If _BAD TAPE OVERFLOW 
REOTIC = 7 IF NOT: 

MO 4MSG106,6$ SET BAD TAPE OVERFLOW MSG 
5$: ; TYPE MSG 
6$: si . orte WILL CONTAIN MESSAGE ADDRESS 
REOT1C: TYPE MSGOD- ; TYPE EOT MSG 

MOV RS 


EOTCO(R4) BUMP CNTR 
EOTCO(R4) ,R3 
TYPOCT PRINT EOT CNTR 
REOTIE: TYPE,MSG16A TYPE MSG 
CLR TFLG : CLEAR ert TAPE FLAG 
SPRINT STATS 
J :PRINT BAD TAPE STATS 
REOT2: ™ UNP ,RO :GET UNIT POINTER 
B ;BRANCH IF UNIT MARKED OFF-LINE 


;BRANCH IF DRY SET 
EOT2 WAIT DRY 
OF Fi INE :GO MARK SLAVE OFFLINE 


REOT2A: ROOT i SEE if LAST UNIT TO REACH EOT 
BE REOTS iF : BR 
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000674 
100000 
003734 
004731 
000674 


000011 
173766 
000007 
000002 


020000 


025426 
000042 


003034 
021226 
003242 
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000742 


004730 


000552 
174054 
000742 
174016 
004730 


000742 
173760 


173744 
173750 
173740 
000742 
000674 
000742 


013652 


TEND: 


R 
$SENDAD: JS 
N 


HERE: 


UNP RO 
#100000 ,UN1 (RO) 
(SP) + 


START7 
REOTC+1,REOTC 
UNP 


RO 
UN1 (RO) ,UDES 
UDES,aTC 
#40000, UN1 (RO) 
#10000, aDS 
10$ 
#401,REOTC 
#11, 

ads 
2$ 
#7,aC1 
#2,aDS 


#20000, aDS 

4$ 
#100000 ,UN1 (RO) 
#2, UNP 


UNP ,RO 
#~1 ,UN1 (RO) 
REOT4 


BEQ REOTXX 
TYPE ,.MSG100 
MOV 


@442,RO 
HERE 


PC, (RO? 


0 
#140000,UN1(RO) :MAR 
act 


+ SET EOT FLAG 
;RESET Jeg POINTER 
:GO TO NEXT UNIT 
SRESTORE UNITS EOT COUNTER 


POINT TO FIRST UNIT 
;LOAD UNIT DESCRIPTION 
SSELECT SLAVE 
BRANCH IF UNIT NOT MARKED OFF=LINE 


;BRANCH IF MEDIUM NOT ON LINE 


Fe ag ot # OF UNITS UNDER TEST 
K UNIT BACK ON-LINE 
sDRIVE CLEAR 


SWAIT FOR DRIVE READY 


REWIND UNIT 
WAIT FOR BOT TO SET 


;WAIT FOR PIP TO CLEAR 
sAWAIT PIP RESET 


CLEAR EOT FiAG 


:POINT TO NEXT UNIT 
BRANCH IF NOT LAST UNIT 


CLEAR UNIT POINTER 


:CLEAR TTY INPUT FLAG 
:SEE IF AUTO SEQ 
:1F NOT: BR 


:RESET STACK POINTER 
:PRESET PATTERN 
CLEAR RANDOM FLAG 
SEE IF SINGLE PASS 
:1F NOT: BR 
TYPE MSG 


:GET ACT11 RETURN ADDRESS 
SBRANCH IF NOT ACT11 


;BRANCY IF NOT CHAIN MODE 
RETURN TO AUTO SEQUENCER 


sRESTART AT BLOCK NUMBER ONE 
sEO? UNIT COUNTER 
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FARA REE REAR EERE EERE REE REE ERERAREEERKEAEKEEKE KEE 


; REWIND ALL AVAIL TAPES: 


THIS ROUTINE; ENTERED VIA oes moh ¥ (9), 

;WILL REWIND ALL AVAILABLE TAPES TO BOT NO MATTER 

: WHERE THEY ARE CURRENTLY POSITIONED AND RESUME TESTING 
ON THE CURRENTLY SELECTED UNIT 


PETTITT TI TTT TTI TTTTTITELTTT TLL LTTE T TELE 
032777 173650 3 #1000, aSWR ;SEE IF SHOULD REWIND 
RWNDA SIF SO: 0 


R PC ELSE EXIT 
000714 : UNP , UPS SAVE UNIT POINTER 
C UNP CLEAR POINTER 
EOTREC CLEAR EOT FLAG 
004730 MO REOTC+1,REOTC ;++8 RESTORE UNIT CTR 
: INP , :POINT TO UNIT ENTRY 
000742 C OE aaa [BRANCH IF LAST ENTRY 


000742 hes + UN1(RO) ;BRANCH IF te REWIND ING 
RWND 1 OR MARKED OFF LINE 
000552 UN1 (RO), UDES :SET UNIT DESCRIPTION 
173512 UDES ,aTC ;LOAD_ COMMAND REGISTER 
173452 #11,aC1 :DRIVE CLEAR 
173444 #7 C1 START REWIND 
RWND 1A : IF DRY: BR 


STAL 

1$ AWAIT DRY 
020312 J OFFLINE :GO MARK aH OFF LINE 
100000 000742 : #100000,UN1(RO) ;CLEAR EOT FLAG 
000002 000674 A #2 ,UNP [BUMP POINTER 

BR RWNDO :DO NEXT UNIT 

000674 2 UNP :CLEAR POINTER 
000674 : UNP ,RO :POINT TO UNIT ENTRY 
177777 000742 aa BRANCH IF LAST ENTRY 
WN, 


000742 00055< MO UN1 (RO) ,UDES SET UNIT DESCRIPTION 
040000 000742 aan BRANCH IF UNIT MARKED OFF LINE 


000552 173374 MO UDES,aTC ;LOAD UNIT DESCRIPTION 
020000 173346 1$: #20000, aDS 
1$ sAWAIT PIP RESET 


000002 173336 a a BRANCH IF SLAVE AT BOT 


020312 J ;PRINT Ad TA ME SSAGE 
000002 000674 : Be ;BUMP POINTER 
000011 173302 MO :DRIVE CLEAR 

RwiwD 3 DO NEXT UNIT 


000714 : UPS, ;RESTORE UNIT POINTER 
000674 MO} RO, UNP 
000742 ) UNI(RO) ,UDES — ;RESET UNIT DESCRIPTION 


000552 é UDES are 
po RETURN TO TEST 


sald aah cath oa ah cae eh me eat a en ce ae ge pee tere were CEL LIES 2B. 
ed ed a aed al elt el ad el 
nit aa ani aan cts 


2 
r4 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


o 





aD 
NN 
Sty 


kd ed td od 8 STN 


nononoenononorenononononenofenys 
Nanda . 


Nm 
-_ 
N 
_ 


2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
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000207 


000552 
000040 


001400 
000040 


000040 


000007 
173172 


020000 
000011 
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173220 


173206 
173164 


173162 
173140 


DIBA IOIIIIIDIDIOISISIIISISIIIEIISIIIOISIIOISIIIIOIIOIOIIUISIOISISIIUIIIIDIIIOI IOI 
S INITIALIZE SELECTED SALVE 

THIS ROUTINE REWINDS AND SETS THE PROPER DENSITY IF 

;THE DENSITY REQUIRED FOR THE TEST IS DIFFERENT FROM 

ZTHE DENSITY AT WHICH THE SLAVE IS SELECTED. 


TTITITI TI TILL I TITTLE LILLE TE LTLIT LITT TT CETTE EET 


UDES ,-(SP) GET UNIT DESCRIPTION 
#40,aCS :DO A MAS SBUS CLEAR 

é ‘LOAD DRIVE # 
(SP) arc SLOAD SLAVE # & SLAVE DESCRIPTION 
#174377, (SP) [CLEAR ALL BUT DENSITY BITS 
#1400, (SP)+ ‘BRANCH IF NOT NRZ 


#40, aDS ;BRANCH IF SLAVE IS IN PE MODE 
4$ PES = 0 


3$ ; 
#69, aDS /BRANCH IF SLAVE IS IN PE MODE 
4$ PES = 1 


#7 aC [LOAD REWIND COMMAND 
ads sWAIT FOR READY 


20$ 
eae sWAIT FOR PIP = 0 
ct ae CLEAR DRIVE 





4 
CZTEDBO TMO3-TE16/TU77 «: MACY11 30A(1052) 21=DEC-78 13:17 PAGE 48 
CZTEDB.P11 15-NOV=78 13:19 


mw 
— 
co 
WG 


FREER EAE KERR EEEREEEEEEREREKEREREEERER HEE 


;WRITE ROUTINE: 


THIS ROUTINE IS USED TO WRITE ONTO TAPE THE BLOCK 
SOF DATA DESCRIBED BY THE OPERATOR AND SET 
;IN THE SEQUENCE FORMA 


A BACKSPACE, ERASE FORWARD, AND 
TE OF REC (SEE Unité RETRY SUBROUT INE) 

“AFTER ALL DATA RECORDS IN THE BLOCK HAVE BEEN 
SWRITTEN, THE WRITE ROUTINE WILL EXECUTE A WRITE 
> TAPE MARK COMMAND IF THE TTY RESPONSE TM=1 WAS 
[MADE AT INITIAL START. THE TM IS COUNTED AS TOTAL 
ZDATA RECORDS PLUS ONE (IE: IF 100 DATA RECORDS; TM=RECORD 101) 
it THE WRITE OPERATION (DATA OR TM) CAUSES THE SELECTED SLAVE 

END OF TAPE (EOT) I READING DONE 


MPOPIMPININMINNNNNNPoNoNnofnenory 
od cael el cd aed ced ca ad ae ce ad aed ccd aed cd ceed 
BELKSRAVLSSELRALR 


EWOUND AND 
“FLAGGED AS UNAVAILABLE FOR TESTING UNTIL ALL SLAVES HAVE 
; REACHED EOT AND BEEN REWOUND AT WHICH TIME TESTING I5 
;RESUMED ON ALL AVAILABLE SLAVES. 
WRITE RETRY MAY BE ALLOWED VIA CONSOLE SWITCH FOUR (4). 
var ae MAY BE DISALLOWED VIA CONSOLE SWITCH 
5 te & TO TAPE MAY BE DISALLOWED VIA CONSOLE SWITCH 


Pere r TTT TIT T TI TTTTTiTiTTTiTiTiTTT rT rerTTeTTtTiTTiie 


005352 032777 173230 : P SEE IF SHOULD WRITE 
005360 B WRTE 


a 
: NT,RO :A0= RECOR D COUNT 
000652 wO: MO SET ERROR MSG ADDRESS 
173110 FMCNT ,aF C : OAD CHAR COUNT 
173100 ATA, @BA SET DATA_ADDR 
000672 7SET WRITE OP C 
SET RETURN ADDRESS 

TAPG 7GO EXECUTE COMMAND 

#2000, aDS SEE IF ao" 

1$ :1F NOT AT EOT: BR 

eyrnee ;BRANCH IF WRITTEN PAST EOT 


RO ;ADJUST # OF RECORDS WRITTEN 

#100000,R0 [SET EOT INDICATOR 

RO, EOTREC [SAVE RECORD COUNT 

#2-RO :SET TO WRITE 1 LAST RECORD 
173112 : #10000, aSwR SEE IF SHOULD CHECK ERRORS 
2$ [IF NOT: BR 


016522 PC,ERCHK >G0 CHE Ck Los 
000576 000666 °$: wo"AL,STAL 7SET DELA 
011654 PC, STALL :DELAY 


o-CO0oOo 


= oO 

SoSKS 
Wow 
N N 


secess 
rah ak + 7 gk pe 
™S 


ae 

—) 

wW 
NNN 
NAG 
NNNIRON 


005512 


2 
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000712 
000706 
000674 
001064 
000706 
000020 


000722 
102700 


022012 
025327 
010754 


000674 
001044 
002000 


025077 
000702 


000001 
017352 
026342 


MACY11 


173032 


172762 


000652 
000672 


172574 
000662 


172650 
172552 


020224 
020232 


172550 
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RTYFL ;SEE IF RETRY TIME 
3$ ;1F NOT: BR 

PC sELSE RETURN 

SERFL ;SEE IF WRITE ERROR 
w5 ;IF NOT: BR 


UNP ,R4 

WTER1(R4) ;BUMP WRITE ERROR 

SERFL CLEAR STATUS ERROR FLAG 
~ 2@SWR sSEE IF RETRY 


SIF NOT: 
ERSAV,R3 
erOl 700, R3 MASK UNRECOVERABL E ERROR 
JSR C ,PAPRT PRINT HEADER 
TYPE ,MSG78 ‘TYPE MSG 
JSR PC.NRTP [PRINT ER FOR NON-RETRYABLE 


MOV UNP RG 
INC RTY1(R4) ;BUMP RETRY CNTR 
BIT #2000, aSwWR i SEE IF PRINT ERRORS 
BNE WGA F NOT: BR 
TYPE ,MSG64 ‘TYPE MSG 
CLR RTCN SCLEAR RETRY NUMBER 
‘CLEAR REPEAT COUNTER 
'GO RETRY WRITE ERROR 
: CLEAR RETRY COUNTER 
"SEE IF DONE ALL 
NOT: BR 


SEE IF _™ 
F NOT: BR 
SET TM FLAG 


TMFLG 
#MSG54,EMADDR POINT TO TM ERROR MSG 
: ET TM OP CODE 


#26,MTC1 
aF C LOAD FRAME COUNTER 
MWDATA, @BA 


:LOAD BUS ADDRESS 
#WTMO ,.RTRN :SAVE_RETURN ADDRESS 
TAPG :WRITE 1 
Ak aca 7SEE IF SHOULD CHECK ERRORS 
ages eaee IF TM STATUS 


Ww F SO: BR 
MWDATA, CADER 'SET EXPT BUS ADDRESS 
1,DRVER ; INDICATE ERROR 
:PRINT TM ERROR 


eSET EXPT ADDRESS 
CHE CK A OTHER ERRORS 
7SEE IF RETR 
:1F NOT: BR 
:ELSE RETURN TO RETRY ROUT INE 
;SEE IF WRITE ERROR 
PY NOT: 
UNP ,R4 
WTER1T(R4) 4: Ag WRITE ERROR 


ao” ,aSWR SEE IF SHOULD RETRY 
we X ;iF NOT: BR 
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2295 006042 
2296 006046 
2297 006052 


MOV ERSAV,R3 
BIC #102700,R3 ;MASK UNRECOVERABLE ERROR 
3097 BEQ WTM4 : 


j SO: 
PC ,PAPRT :PRINT HEADER 
; TYPE MSG 
NRTP ;PRINT ER FOR NON-RETRYABLE 
;CLEAR REPEAT CNTR 
;BUMP RETRY CNTR 
C RTCNT ;CLEAR RETRY CNTR 
172470 ;SEE IF PRINT ERRORS 
BNE ;1F NOT: BR 
TY ; TYPE MSG 
JS WR :GO DO RETRY 
:CLEAR RETRY FLAG 
;CLEAR TAPE MARK FLAG 
aa ;BRANCH IF NOT AT EOT 
000014 172432 : Ag ;BRANCH IF EITHER READ ENABLED 


004154 SELSE REWIND 
P ;EXIT 


JSR 
2299 006060 TYPE ,.MSG78 
JSR PC 
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PERERA ERR EKEKEKKE 


;WRI TE ERROR RETRY 


| engunsnneseneesecoeesets 


000001 000712 : MO #1 ,RTYFL SET RETRY FLAG 
006554 : P :GO SPACE REVERSE ™_ 


76 T TMFLG ; SEE MY -" MARK 
005372 wo0 : REWRITE RECORD 


BR 
005672 WRTYTM: :GO WRITE TAPE MARK AGAIN 
000706 WRTYR: REWRITE GOOD 


BN i IF ee 
000700 R ‘au REPEAT COUNTER 
000004 000700 SEE IF FOUR a REPEATS 
BN WRTY :1F NOT: REPEAT 
002000 172340 #2000 ,aSWR 7SEE IF PRINT 
1 :1F NOT: BR 


BNE WRTY 
025512 TYPE .MSG105 TYPE MSG 
025121 TYPE ,.MSG65 ;TYPE MSG 
000702 


RTCNT ,R3 
PRINT RETRY NUMBER 
: RTS PC RESUME TESTING 

000722 : V ERSAV ,R3 :GET ER 
000650 C TEMP3 ;CLEAR RECOVERABLE ERROR INDICATOR 
102700 #102700,R3 ;MASK RECOVERABLE BITS 

eC Y2A 71F RECOVERABLE: BR 
022012 JSR PAPRT [PRINT HEADER 

sg mse" : TYPE MSG 


PC ,NRTP PRINT ER 
000650 MOV wi. TEMPS SET FLAG 


BR WRTY 
172246 ‘Bit #2000 ,aSwWR SEE why _PRINT 
BNE WRTYS siF BR 
025722 TYPE .MSG110 TYPE MSG 
025121 : TYPE ,MSG6 ZTYPE MSG 
000762 wy 
TYPOCT ;PRINT RETRY NUMBER 
025744 TYPE ‘teat TYPE MSG 
000700 MOV CNT,R3 
PRINT REPEAT NUMBER 
7SEE IF DID NON-RECOVERABLE 
;1F NOT: BR 
:CLEAR FLAG 
[SEE IF FIRST RETRY 
7IF NOT: BR 
UNP ,R4 
WTER1(R4) sDE CRENENT WRITE ERROR CNTR 
UNP ,R T UNIT ER 
BTADDR(R4) ,BIPT iGET BDOnE 35 OF UNIT BAD TAPE CNTR 
@BIPT,R4 r¢ 
SET POINTER OFFSET 


172256 
000730 BIPT,R3 
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| 


seeege 


000654 


900040 
000554 
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172222 


000702 


000666 
000652 
171710 


000672 
000662 





SEQ 0052 
SET ABSOLUTE POINTER 
: BLOCK NUMBER 
;ADD RCNT OFFSET 
SET RECORD NUMBER 
CORRECT RECORD NUMBER 
:SEE a 1 MANY BAD SPOTS 
sELSE GO Ne ot eaten” OVERFLOW 


‘BUMP RETR R 
SSEE IF DONE ° RETRIES 
;IF SO: BR 


R3,R4 
BLCNTR, (R4) 
#40 ,R4 


:BUMP RETRY Ac 


; RETR 
ELSE GO TO BAD TAPE UNRECOVERABLE 


WRITE RETRY BACKSPACE-ERASE SUBROUTINE ***«aa«® 


CLEAR FLAG 


;DO_TURN AROUND DELAY 

SET ERROR CODE 

SET TO BACKSPACE 1 RECORD 
;SET EXPECTED BA 


SET BACK SPACE OP CODE 
:SET RETURN PC 

TEXECUTE BACKSPACE COMMAND 
STALE ERRORS 

TSEE IF ERROR 

il BR 


F NOT: 

SET FLAG 

;RESET STACK 

:GO REWIND AND REMOVE FROM TESTING 
Rae ~~ ERASE 


URN 
7CLEAR ERASE FLAG 
CLEAR Th CNTR 
EAR FLAG 


3CL 

3SET ERROR CODE 
EAR FRAME COUNT 

SET ERASE OP=CODE 

;SET EXPECTED BA 


SET RETURN ADDRESS 
:GO ERASE 
GO CHECK ERRORS 


7SEE IF ERROR 
IF NOT: BR 


;BAD TAPE OVERFLOW SUBROUTINE **#enenes 
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000712 
900001 


004154 
000730 


023606 


60040 
000040 
171640 
024153 
000726 


000041 
000730 
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000724 


BTOV: 


Brovo: 


BTOV1: 


RTYFL 
#1 ,BIFLG 
(SP) + 


REOT 
BTPT,R1 
(R1)+ 


RO 
RO,R3 


ROR 

TYPOCT 

TYPE .MSG13+1 
MOV 


(R1),R3 
TYPOCT 


TYPE ,.MSG14 
ADD 


CLEAR RETRY FLAG 

SET BAD TAPE gt FLAG 

;++B ADJUST STACK 

[GO REWIND AND REMOVE FROM TESTING 


SET TABLE POINTER 


PRINT ENTRY 
7 TYPE MSG 


‘TYPE MGR NUMBER 
SET POINTER OFFSET FOR RECOED NUMBER 


3R3=R3/2 FOR CORRECT NUMBER 
NUMBER 


PRINT RECORD NUMBER 
RESET POINTER FOR BLOCK NUMBER 


;SEE IF DONE 

:1F SO: BR 

: TYPE °<CR><LF>’ 

; CONT INUE 

i SEE IF STAT ONLY PRINT 

:1F SO: BR 

iSET SIZE OF TABLE 
POINTER 


3Se7 
:CLEAR TABLE 


:SEE 1F DONE 
IF 


NOT: BR 


“RETURN 


SEQ 0053 
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0241 3 BIPRT: 
000730 


BIPRT1: 


004737 BTUR: 
000004 
000207 


sBAD TAPE STATISTIC PRINT***xxawe 
TYPE .MSG28 ;TYPE '<CR><LF>' 


V UNP ,R 
MOV BTADDR(R4) ,BTPT ;SET TABLE POINTER 
MOV @BIPT,R3 


CLC 

ROR R3 ; CORRECT NUMBER 

TYPOCT :PRINT NUMBER OF BAD SPOTS 
TYPE ,MSG112 7 TYPE MSG 

S 3 SEE IF ANY BAD SPOTS 

te) :1F SO: BR 


R PC ELSE RE TURN 
JMP sPRINT STATS 


BAD TAPE UNRECOVERABLE SUBROUTINE ** «exe 
PC ,PAPRT ;PRINT HEADER 


JSR 
TYPE MSG107 ‘TYPE MSG 
RT [RESUME TESTING 


SEQ 0054 
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FERRER REE KERR EERE KERR EERE EERE 


;READ SEQUENCER : 
: THIS ROUTINE IS USED TO DETERMINE THE SEQUENCE 
OPERATIONS ARE 


T RT 
: FIRST OR REVERSE FIRST. 
sSWITCH TWO (2) DISALLOWS READING IN THE REVERSE 
DIRECTION AND SWITCH THREE (3) DISALLOWS READING IN 
; THE FORWARD DIRECTION. 


FERRI RRR REE RE REE RK 


000562 SEQ: RDCMD 
171370 MO aSWR,RS ;READ SWITCHES 
177763 #177763,R4 MASK READ BITS & SEE IF BOTH READS 


RSR 
000002 171354 fF Ps TF Nor: — REVERSE FIRST 
000004 171344 : a aSWR SEE IF — READ REVERSE 
000001 000562 a " RDCMD LOAD =. + hei COMMAND 
007464 PC ,READ :GO READ REVERSE 
000010 171322 RSF: #10, -@SWR SEE TF — READ FORWARD 
000562 ae :SEE IF aye “em 


RSF 
000600 000666 TSTAL,STAL 
011654 : 23 A :DO READ STALL 


B RSF 
000001 171270 : asre aie WRITE 
BN BR 


011402 J ‘0 BACK SPACE 
000562 : i RDCMD SL OMREAR FORWARD COMMAND 


007464 
:GO TO EXIT 


000001 000562 : #1,RDCMD 
000010 171234 B #10, aSWR : SEE IF SHOULD READ FORWARD 


F NOT: BR 
000001 171224 :SEE IF 1F WRITE 


NOT: BR 

011402 J 266 BACKSPACE TO START 

000562 : RDCMD 

007464 J AD FORWARD 

000604 171200 : #4 as “SEE IF SHOULD READ REVERSE 
BN ;1F NOT: BR 


000562 

R :IF READ REVERSE: BR 
000600 000666 TSTAL,STAL ;DO READ STALL 
011654 J PC, STALL 
000001 000562 RSFR2: # ,RDCMD ;LOAD READ REVERSE 
007464 J PC READ :GO READ REVERSE 
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007444 rsh 000562 RSEX: 
000660 


BRANCH IF EOT NOT REACHED 
004154 J REWIND AND REPORT STATS 
P ;EXIT 


007462 000207 RSFRX: 
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000554 
000660 


000562 
100000 
000660 


023551 
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000672 


e ? 
21-DEC-78 13:17 PAGE 57 


LIRR REE EEE RK EKRREEEKREREKREREREREEKRE KK KK 


:READ ROUTINE: 


:THIS ROUTINE PERFORMS THE READ F necone A ae te 
H READ OPERATION THE STATUS REGISTER 
OR Recto to” OF TAPE. 


: THE gl ga Fs, SWITCH. 


SIF A TAPE MARK IS EXPECTED (TM=1) THEN a 
READ ROUTINE on ee a Lg FIRST RECORD OF A 
SREAD REVERSE TO BE A + THE LAST — 
:OF A READ apa TO BEA REME 
: THAT THE TM ADDS ONE (1) 10. THE TOTAL NUMBER 
[OF RECORDS IN A BLOCK. 
; CONSOLE ye ELEVEN (11) AND THIRTEEN (13) Phatee ti WHE THER 
[OR NOT TO FOR STATUS ERRORS (11) r. DATA ERRORS (13), 
: CONSOLE SWITCH FIVE (5) IS USED TC CAUSE A CONTINUOUS 
;READ AND SPACE (FORWARD OR REVERSE) OF THE CURRENT 
[RECORD ON TAPE (YOZZLE). 


TOGO IIIS CIOIISISIIIOISI IIIS IIIT II Mie 


RCNT ,RO LOAD REC CNTR 
;SEE IF EOT 


:IF NOT: BR 
: SEE IF READ FORWARD 
RDA O: BR 
#100000 ,EOTREC ‘CLEAR FLAG 
EOTREC,R3 :GET aod lb oe COUNT 
R3,0 7SET RECORD A 


RO SET [0 PROPER NUMBER OF RECORDS 
=“ SET ERROR MSG ADDRESS 


RDCMD 

RDO i 1F READ FORWARD: BR 
TME X sSEE IF T™ 

RDO IF NOT: BR 

a 7SET T FLAG 

FMCNT ,aFC ;LOAD CHAR CNTR 
ARDATA,@BA ;LOAD DATA ADDR 

RDCMD SEE IF READ REVERSE 
RDIA SIF NOT: BR 

oe a 


#20, UDES ;SEE_1£ CORE DUMP 
RDI ZF NOT: BR 
R3- :R3_= FC/2 


zSET REVERSE BUS ADDRESS 
[SET READ REVERSE 


SEQ 0057 
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012737 000070 000672 RDIA: #70,MTC1 :SET READ FORWARD 
007656 000662 RDI1B: #RD2,.RTRN :SET INTERRUPT RETURN ADDRESS 
920372 TAPG 'GO EXECUTE TAPE COMMAND 
000562 RD2: RDCMD ‘IGNORE EOT IF READ REVERSE 


RD3 
002000 170630 #2000,aDS SEE IF EOT 
RD3 7 IF NOT: BR 
000676 TMF LG 7SEE IF T™ 
:1F SO: BR 


900660 RO, EOTREC [GET # OF RECORDS LEFT IN BLOCK TO READ 
100000 000660 #100000, EOTREC SET EOT FLAG 
000002 170600 : al SEE IF AT LOAD POINT 


;IF NOT: 
022012 JS C,PAPRT SPRINT CYCLE NUMBER 
023711 ag mscoo" STYPE MSG 


003144 ARTA sREST 
004000 170640 é #000, aSWh 7 SEE rc "SHOULD CHECK ERRORS 


IF N 
000676 
:IF NO ™ EXPT: BR 

000004 170534 

RD4A IF ™ RECVD: BR 
032350 020224 #RDATA, CADER SAVE EXPT BUS ADDRESS 
000002 020232 #2,DRVER 7SET_TM STATUS ERROR FLAG 

PC,ERPT ;GO PRINT TM ERROR 

UNP ,R4 

a : SEE M4 READ REVERSE 

on eae ;BUMP READ REVERSE ERROR 

001104 : . oe ;BUMP READ FORWARD ERROR 


D 
032350 3 #RDATA,RE 
000562 T RDCMD oF she ~ REVERSE 


RD4A0 
002000 #2000,UDES :SEE IF _ PE 
BN RD4A2 IF SO: 
000002 
000556 Ae 
000020 000552 sSEE IF CORE DUMP 
RD4A1 IF NOT: BR 


Sesesees 


BVRRAVSERG AN 


:SET TO FC/2 
:SET EXPT BUS ADDRESS 
000001 8 :R3 ZMAKE EXPT ADDRESS EVEN 
002000 00. SEE IF IN PE 


clr 
000002 
016614 
BR RD4C 
016522 : f :G0 CHECK ERRORS 
000706 D4C: 4 
cif NO ERROR: BR 


all ce ce ce ad ca can eh ad ce a ee ad we ce ce ee eh ced ed 
DOOCVOOOVOCOOCOCOCO 
ek ad ed aed ed wed ed ad a ed ed dd 


elolelelelelelelelelelelelelelelelelelelelo) 
We 
Oofo 
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2660 000674 
2661 5 000562 SEE _IF READ REVERSE 
00100 :IF SO: BR 


RD4D 
001104 IN RDERT (RA) BUMP READ FORWARD ERROR 
001144 RDERR1(R4) /BUMP READ REVERSE ERROR 
010374 : PC ,RDRTY :G0_RETR 
000712 __ C RTVFL SCLEAR RETRY FLAG 
020000 170374 : #20000, aSWR ZSEE IF SHOULD DO DATA CHECK 
BN RD6 : ; BR 
000676 ih 
014750 ;GO_CHECK DATA 
000706 : :CLEAR STATUS ERROR FLAG 
013614 [CLEAR BUFFER 
000040 170342 iSEE IF SHOULD YOZZLE 
RD? IF NOT: BR 


010770 PC,Y0Z ELSE 60 YOZZLE 
000574 CuvvEe6é 3 » 7SET DELAY 
011654 7 STALL 


000562 7 SEE iF READ REVERSE 
:1F NOT: BR 
900676 C rook CLEAR TAPE MARK FLAG 
000660 ee in IF EFOT FOUND 
RD19 F NOT: BR 
000001 MO 4 “SET TO EOT 


:1F DONE ALL: BR 
007556 


J 
000562 : a +SEE IF READ REVERSE 
000660 7SEE IF FOUND EOT 
RDEX :1F SO: BR 
000564 :SEE IF T™ EXPECTED 
:1F NOT: BR 
000676 : SEE IF TM FOUND 
SO: BR 
000676 ms ‘ELSE SET FL 


AG 
:SET RECORD COUNT TO ONE 
007556 . J D GO READ T 


000676 
SEXIT 





CZTEDBO TMO3-TE16/TU77 DRT 
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CZTEDB.P11 


010374 


032777 
001001 
000207 
013703 


000020 


000722 
100000 


000040 
000706 
026302 
102700 
022012 
025367 
010754 
002000 
025077 
000702 
000706 
000002 
010770 
000706 
002000 
025512 
025121 
000702 
000674 
000562 
002664 
002704 
000722 
000650 
102700 
022012 
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170206 


170074 


170114 


000712 


170050 


RDRT1: 


RDRT1B: 


RDRTG: 


FER E REE EREREERERERRE REE EE 


;READ ERROR RETRY SUBROUTINE: 
:THIS SUBROUTINE WILL + ys ALL DATA RELATED 
UP_TO EIGHT (8) TIMES. IF ALL 


;SO ° TED 
[VIA SWITCH FOUR (SW4=0: INHIBIT RETRIES) 


FERRER REE EER EERE REE REREEEEEERERKEKKKKKE KKK 


#20, aSWR SEE IF RETRY INHIBITED 
RDRTO :1F NOT: 
PC SELSE RETURN 


ERSAV,R3 
#100000.R3 +48 BRANCH IF OTHER THAN CORRECTED READ ERROR 


#40,aDS +98 BRANCH IF NRZ 
1$ +48 


CLR SERFtL ;++B CLEAR ERROR FLAG 

TYPE ,MSG124 3++B TYPE Pete PE DATA ERROR* 
BR RDRT2 :++B INC SOFT COUNT 

BIC Ab he MARK N NON=RE COVERABLE ERROR BITS 


;1F NOT: BR 
SPRINT HEADER 
YPE MSG 
‘PRINT ER FOR NON-RETRYABLE ERROR 
RTS PC RETURN 
BIT #2000 ,aSwWR SEE IF PRINT INHIBITED 
BNE RDRT1B :1F SO: BR 
TYPE .MSG64 TYPE MSG 
LR RTCNT ZCLEAR RETRY COUNTER 
:CLEAR STATUS oes FLAG 
7SET READ RETRY FLAG 
:GO TO YOZZLE 10 RETRY READ 
:SEE_IF RETRY ERROR 
RDRT5 IF SO: BR 
#2000, aSWR 
BNE RDRT2 
TYPE .MSG105 TYPE MSG 
TYPE .MSG65 TYPE MSG 
RTCNT ,R3 
PRINT RETRY NUMBER 


RDCHD asee IF READ REVERSE 
RDRT3 :1F SO: BR 
Aca ‘ELsO BUMP FORWARD SOFT ERROR COUNTER 
RRSOF T(R4) net ERRORS SOFT CNTR 

PC RETURN 

ERSAV ,R3 :GET ER 

TEMP3 ; CLEAR RECOVERABLE ERROR INDICATOR 
44 tat oR3 BITS 


PC ,PAPRT [PRINT HEADER 
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025367 
010754 
000001 


002000 


025121 
000702 


000650 
000650 


000702 
000702 


026021 
000674 
000562 
002724 


002744 
010752 
010754 000722 


020250 


AARAVVLLLSONN 
FSURRRARSUAS 
NNN 


eleleleleleleleleleleleleilo) 
oo 


RV  e 
~~ SS 2 OO 


RE 
“yr See 
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TYPE ,.MSG79 

JSR 
000650 MOV 

BR RDRT5B 
167732 RDRTSA: BIT see Som 


BNE RDRT 
RDRT5B: TYPE ,MSG65 
MOV RTCNT,R3 


TEMP3 


RDRT6 
li 


RTCNT 
000604 a 
BNE RDRT 
TYPE ,.MSG115 
MOV UNP ,R 
RDCMD 
RDRT7 
RF HARD (R4> 
RDRTX 
RRHARD (R4) 
PC 
ERSAV ,R3 


= -FRPRT 


; TYPE MSG 
sPRINT ER 
sSET FLAG 
;SEE IF PRINT INHIBITED 
;IF SO: BR 
TYPE MSG 


:PRINT RETRY NUMBER 
este fh NON=RE COVERABLE 


sg LGan FLAG 
;EXIT 


:SEE IF DONE 8 RETRIES 
‘IF NOT: BR 

STYPE MSG 

:SEE IF READ REVERSE 

‘BUMP FORWARD HARD ERROR CNTR 
:BUMP REVERSE HARD ERROR CNTR 
RETURN 


‘SIN a tein 
[PRINT F ORR 
;RETURN 


ITIIIIITITITITTII TTT TI TITTLE LL LTLI TTL TTL TTT iiTt 


; YOZZLE SUBROUTINE : 


iTHIS ee ale na VIA SWITCH FIVE (5), 


A CONTINUOUS 


IS USED TO 6 ng 


AND SPACE OVER OF THE CURRENT RECORD ON T 


“FULL STATUS AND DATA CHECKING MAY BE PERFORMED 
[OR NOT VIA CONSOLE y Ee ELEVEN (11) AND uae (13). 


3A SOFTWARE DELAY IS 


D BETWEEN ay BE 


SAND SPACE OPERATION AND MAY BE VARIED BY TYPING 
:CNTRL_C_ON THE TTY AND ENTERING A VALUE IN RESPONSE 


:TO THE PRINTED REQUEST. 


PITTI IT TET T TIT T TTT TTLLTLTT LTTE TTT TT TTT 


000666 
167506 


YSTAL, STAL 
PC, STALL 
#~-i are 
RDCMD 


YOZA 
#30,MTC1 
Y02zB 

000672 : #32,MTC1 
000662 : #Y0ZC ,RTRN 
000666 #177775 ,STAL 
IMFLG 


#40000, STAL 


000672 


000666 


:D0_YOZZLE STALL 

:SET TO 1 RECORD SPACING 

SEE IF READ REVERSE 
NOT: BR 


IF 
[SET TO SPACE FORWARD 


sSET TD SPACE REVERSE 
SET RETURN ADDRESS 
SET TIME MULTIPLIER 
:GO YOZZLE 

7 SEE IF ™ 


71F NOT: BR 
[SET TM STALL 





CZ 
C2 


TEDBO TMO3-TE16/TU77 DRT 
TEDB.P11 15=NOV-78 13:19 
2815 011070 03 

2816 011072 013737 02 
2817 011100 004737 911654 
2818 011104 012777 032350 
2819 011112 005737 562 
2820 011116 001416 

2821 011120 013703 000556 
2822 011124 005103 

2823 011126 032737 000020 
2824 011134 001401 

2825 011136 006203 

2826 011140 060377 167350 
2827 011144 012737 076 
2828 011152 000403 

2829 011154 012737 70 
2830 011162 013777 000556 
2831 011170 012737 011202 
2832 011176 137 020372 
2833 011202 032777 004000 
2834 011210 1047 

2835 011212 005737 000676 
2836 011216 001442 

2837 011220 005737 000562 
2838 011224 001425 

2839 011226 012703 032350 
2840 011232 013704 000556 
2841 011236 005104 

2842 011240 032737 000020 
2843 011246 001401 

2844 011250 2 

2845 011252 040 

2846 011254 042703 000001 
2847 011260 032737 002000 
2848 011266 001001 

2849 011270 005743 

2850 011272 004737 016614 
2851 011276 30 

2852 011300 012703 032350 
2853 011304 032737 002000 
2854 011312 001001 

2855 011314 005723 

2856 011316 004737 016614 
2857 011322 000416 

2858 011324 004737 016522 
2859 011330 005737 000712 
2860 011334 001013 

2861 011336 03277/ 020000 
2862 011344 001005 

2863 011346 005737 000676 
2864 011352 001002 

2865 011354 004737 014750 
2866 011360 004737 013614 
2867 011364 032777 000040 
2868 011372 001402 

2869 011374 000137 011002 
2870 011400 000207 
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000666 
167402 


060552 


000672 


167400 


000552 


000552 


000552 


167244 


167216 


1$: 
2$: 


yozco: 


YOZC1: 
vO2C2: 


YOZD: 


YOZD4: 


YOZD2: 
YOZDO: 


YO2D3: 


YO7D1: 
YOZE: 


YOZF: 
YOZ2G: 


YOZ7H: 


2$ 
YSTAL,STAL 
PC, STALL :DO YOZZLE STALL 
#RDATA, aBA ‘SET BUS ADDRESS 
RDCMD ‘SEE IF READ REVERSE 
YO7(1 ‘IF NOT: BR 
FMCNT .R3 
#20, UDES :SEE IF CORE DUMP 
yozC0 [IF NOT: BR 
R =R3 = FC/2 
R3,aBA [SET REVERSE BUS ADDRESS 
#76 MTC [SET READ REVERSE 
#70,MTC1 :SET READ FORWARD 
FMCNT , aF C :SET CHARACTER COUNT 
#YOZD.RTRN ‘SET RETURN ADDRESS 
TAP 3GO READ 
#4000, aSWR :SEE IF SHOULD CHECK ERRORS 
YOZE ;IF NOT: 
TMF LS ‘SEE IF TAPE MARK TIME 
YOZD1 ‘IF NOT: 
RDCMD SSEE IF READ REVERSE 
YOZDO ‘IF NOT: BR 
ARDATA,R3 
FMCNT .R4 
#20,UDES ;SEE IF CORE DUMP 
YOZD4 ‘IF NOT: BR 

SSET TO FC/2 
R4,R3 [SET EXPT BUS ADDRESS 
#1_R3 ‘MAKE EXPT ADDRESS EVEN 
#2000, UDES ‘SEE IF PE 
vOZD2 [IF SO: BR 
-(R3) [SET EXPT BA 
PC,ER2 'GO CHECK ERRORS 


i SEE IF PE 
(R3)+ :SET EXPT BA 


a :GO CHECK ERRORS 
PC,ERCHK ELSE GO CHECK ERRORS 
FL :SEE IF RETRY 
G :1F SO: BR 
#0000 .2SuR :SEE IF SHOULD CHECK DATA 


TM LG ‘SEE IF TAPE MARK 


YOZF ‘IF SO: BR 
PC, DCHK TELSE GO CHECK DATA 
PC‘°DS3 'GO CLEAR DATA AREA 
#40, aSwR [SEE IF SHOULD CONTINUE YOZZLE 
rors ‘IF NOT: BR 

L. 


PC SEMI) 


SEQ 0062 
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CZTEDB.P11 15=-NOV=78 13:1 SEQ 0063 
2871 PEER ERR EERIE EERE 
sare ;BACKSPACE SUBROUT INE : 

2874 THIS SUBROUTINE IS USED TO PERFORM THE 

2875 sBACKSPACE OPERATION ie at BY THE READ 

2876 4 ae FOR READ FORWARD AFTER WRITING 

2877 3 IF APE MARK IS teh e (TM=1) THEN i SPACE 
2878 ROUTINE ASSUMES THAT THE TM WILL BE FIRST WHEN 

2879 TBACKSPACING. THEREFORE TWO OPERAT IONS ARE REQUIRED 
2880 ;TO SPACE OVER A BLOCK. FIRST SPACE OVER THE TM, THEN 
2881 SPACE OVER THE DATA RECORDS. 

2882 tA CHECK FOR RECORD COUNT ZERO IS MADE AT THE 

2883 END OF THE SPACE OPERATION TO ASSURE THAT PROPER 
2884 ; TAPE POSITIONING WAS DONE. 

2885 DOI IIIS III III III III III III ITI Ik 
2886 . 

2887 011402 013737 000600 000666 BKSP: MOV TSTAL,STAL 

2888 011410 004737 011654 JSR PC,STALL ;DO TURN AROUND STALL 

2889 011414 012737 023600 000652 MOV 4MSG10,EMADDR 

2890 011422 012703 032350 MOV ARDATA,R3 ;SET EXPECTED BA 

2891 011426 010377 167062 MOV R3,aBA 

2892 011432 005737 000564 TST TMEX ;SEE IF ™ 

2893 011436 001436 BEQ BO 7 IF NOT: BR 

2894 011440 012777 177777 167050 MOV #-1 OFC 

2895 011446 012737 000032 000672 MOV #32,MTC1 

2896 011454 012737 011466 000662 MOV #1$,RTRN 

2897 011462 000137 0203/2 JMP TAPG ‘SPACE TO T™ 

2898 011466 032777 010000 167114 1$: BIT #10000, aSwWR ;SEE IF SHOULD CHECK ERROR 
2899 011474 001017 BNE BO :IF NOT: BR 

2900 011476 012737 025017 000652 MOV 4#MSG55.,EMADDR 

2901 011504 032777 000004 167010 BIT #4,aDS ;SEE IF ™ 

2902 011512 001006 BNE 23° IF SO: BR 

2903 011514 012737 032350 020224 MOV #RDATA, CADER 

2904 011522 004737 017352 JSR PC,ERPT ;PRINT ERROR 

2905 011526 000402 BR BO 

2906 011530 004737 016614 es: JSR PC,ER2 

2907 011534 013700 000554 BU: MOV RCNT ,RO 

2908 011540 005737 000660 TST EOTREC ;BRANCH IF EOT NOT DETECTED 
2909 011544 100007 BPL 1$ 

2910 011546 042737 100000 000660 BIC #100000,EOTREC ;CLEAR EOT INDICATOR 

2911 011554 013703 000660 MOV EOTREC,.R3 :GET # OF RECORDS LEFT IN BLOCK 
2912 011560 160300 SUB R3,RO ;FORM # OF RECORDS TO BACK SPACE 
2913 011562 005200 INC RO 

2914 011564 012737 023600 000652 1$: MOV #MSG10,EMADDR ;SET ERROR MESG ADDRESS 
2915 011572 012737 011630 000662 MOV #2$,.RTRN :SET RETURN PC 

2916 011600 012777 177777 166710 MOV #-1 ,aFC SET TO BACKSPACE 1 RECORD 
2917 011606 012703 032350 MOV #RDATA,R3 ;SET EXPECTED BA 

2918 011612 010377 166676 MOV ‘ 

2919 011616 012737 000032 000672 MOV #3¢,MTC1 SET arate REVERSE 

2920 011624 000137 020372 JMP TAPG :GO DO SPACE 

2921 011630 004737 016614 2$: JSR PC,ER2 

2922 011634 013737 000600 000666 MOV TSTAL,STAL 7D0 STALL 

29235 011642 004737 011654 JSR PC,STALL STALL 

2924 011646 005300 DEC RO SDECREMENT # OF RECORD TO BACKSPACE 
2925 011650 001345 BNE 1% 

2926 011652 000207 RTS PC EXIT 
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2944 
2945 011 
2946 git 


654 005337 000666 
Q 001375 


66 
2947 011662 000207 
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FERRER RARER REE ERE RAREREREEKERRERERKEEREREKEE KEE 


; STALL ROUT INE : 


STHIS ROUT INE is USED TO PROVIDE SOFTWARE DELAYS 
; DURING READ, WRITE, T AROUND YOZZLE. 


) OR 
:AT ANY TIME BY ENTERING CNTRL C ON 
; INSERTING NEW VALUES IN RESPONS 
;THE READ STALL _AND THE WRITE STAL 


: T ZZLE 
STALL IS EXECUTED ONLY DURING THE YOZZLE ROUTINE. 


FERRER RRR EEE REE EERE EERE KK 


DEC STAL 
BNE STALL DELAY 
S PC sEXIT 





CZ 
C2 


TEDBO TMO3-TE16/TU77 DRT MACY11 30A(1052) 
15-NOV=-78 13:19 


TEDB.P11 


177760 
175000 
022312 
000001 000630 
000630 000556 
177777 ~=013652 


000001 
5 


022312 
000630 000554 
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FEAR REE EERE KE 


; RANDOM CHARACTER COUNT GENERATOR: 


‘THIS ROUTINE ENTERED VIA CONSOLE SWITCH 
SSEVEN (7) IS USED TO GENERATE A RANDOM 

S CHARACTER COUNT POR’ EACH DATA BLOCK. 

TALL RECORDS WITHIN A GIVEN BLOCK | WILL BE 

* THE T EACH BLOCK WILL V, 

STHE LIMITS ARE TWENTY (20) TO YOUR’ THOUSAND 
+ (4000) OCTAL CHARACTERS PER RECORD. 


TEES OSI ISI ISITE IEC OUOIUITIOIOIOI II II OR 


SET HIGH LIMIT 
SET LOW LIMIT 
:GO GENERATE NUMBER 


3;SET CHAR COUNT 
At ghd DATA PATTERN 


MmARAAAALASASLAAAAARAALALLLASAASLE REL SALAS EASA RS SEAS SS 


;RANDOM RECORD COUNT GENERATOR: 


;THIS ROUTINE ENTERED AY CONSOLE SWITCH SIX (6) 
:1S USED TO GENERATE A ae NUMBER OF RECORDS 
;FOR EACH BLOCK OF DAT 

THE LIMITS ARE ONE ie TO FIVE HUNDRED (500) OCTAL 
;RECORDS PER BLOCK. 


TTTTIITITILTTITITITITI TTT LITLE LL 


SET LOW LIMIT 


PC ,RANG 3 
RANSAV ,RCNT 7SET RECORD COUNT 
PC EXIT 
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SRE ARREE RE EER EERE 


=TEST CONDITION ENTRY ROUTINE: 


7 THIS os tha IS USED TO ALLOW THE OPERATOR 
:T0 ENTER, AT THE TTY, THE NEC ata! | PARAME TERS 
;TO RUN THE PROGRAM AS HE WISHES. THE 
ROUTINE IS yg A) a UPON INITIAL STARTING 


:FROM LOCATION 
iy HE MAIN PURPOSE OF THIS ROUTINE IS TO ESTABLISH 
A_TABLE 34 gs: TO BE TESTED. THIS TABLE 
CONSISTS OF AN ENTRY FOR EACH OF ONE (1) TO 
EIGHT (8) DEVICES. EACH ae CONTAINS THE 


Y ORDER. EACH 
PARAMETER _IS CHECKED FOR LEGALITY BEFORE BEING 
>SET INTO THE TABLE. 

: THE DRIVE NUMBER REQUEST WILL a CHECK THE MASSBUS 


D 
; E DRIVE IS FOUND, THE RESPONSE IS STORED 
SAND CONTROL PASSED TO THE SLAVE SELECT ROUTINE. 
:THE SLAVE SELECT ROUTINE ALSO cet FOR THE PRESENCE OF THE 
; SLAV mw at is PRESE A MESSAGE IS PRINTED AND ANOTHER 
;REQUEST IS ISSUED. WHEN THE SELECTED SLAVE IS FOUND TO BE 
PRESENT, A MESSAGE IS PRINTED IF mi IS A 7 CHANNEL 
TO ASSIST IN SELECTING DENSITY, 
COMPLETION OF THE DEVICE 
ARE PRINTED FOR ENTRY OF THE 
PER RECORD AND THE NUMBE 
:NEXT uit IS FOR A PATTERN NUMBER 
‘;FOR WRITING AND CHECKING OF READ DATA. 
; FOLLOWING THE PATTERN REQUEST IS THE TAPE MARK OPTION. 
PONDING TO THE REQUEST (TM=) WITH A ONE (1) 
R E ert AT THE 


coh cath aaah aad anh ont ad acd ad 
WODNAWHRWR-O 


30 
30 
30 
30 
30 
30 
30 
30 
30 
301 


; S 
:THE LAST REQUESTS ARE FOR cog OF THE DESIRED 
;WRITE, READ, AND TURN AROUND STALLS. 


TIAGO AIOE IOI IOI ISI II I II I I TOIT TOI III Tf 


000636 : TINF SEE IF SHOULD INPUT FROM TTY 
1$ O: BR 


:1F_S 
013270 TINWP4 ZGET SWITCHES 
000674 : UNP CLEAR TABLE POINTER 
004730 REOTC CLEAR EOT Nay COUNTER 
024227 012016 4MSG31,41$ SGET TITLE MSG 
000734 : ASE QF $1 , AUTO SEQ 


4$ ;IF NOT: BR 
024155 012016 #'SG30,41$ :SET AUTO SEQ HDR 
4$: YPE MSG 


elelelelelelelelele) 





CZTEDBO TMO3-TE16/TU77 DRT 


CZTEDB.P11 
012016 


Whoa 


4 
4 
5 
5 
6. 


15-NOV-78 


13:19 


013444 
025243 
000544 


022474 
025266 
000546 


000016 
000510 
000002 
000734 


021176 


025200 


000646 
024376 
000646 

000002 
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41$: 


166276 6$: 


166240 
166226 


CLRB a41$ 
TYPE IMSGSTA 
CLRB MSG31A 
TST SCVFL 
BNE 6$ 
TYPE ,MSG74 
REGS ,R3 
orate R5 


4176400, R2 
#172300.R3 
PC,TIR 


TYPE ,MSG75 
VECT ,R3 


AVECT,RS 
#4 RI 


#10000,aCS 
BEQ TINPO 
TYPE ,MSG71 
BR 6$ 
MOV ATEMP2,RS 
are -MSG32 


TcMP2 
MOV #2,R1 


ADDRESS _OF APPROPRIATE TITLE MSG 

:DO NOT TYPE TITLE ON RESTART 

: TYPE INSTRUCTIONS 

:DO_NOT TYPE STARTUP INSTRUCTIONS ON RESTART 
;SEE_ IF _ CONVERSATION 


:1F SO: 
REQUEST REGISTER START 
sPRINT CURRENT REG START 


60 GET RESPONSE 
REQUEST INTERRUPT VECTOR ADDRESS 


PRINT CURRENT VECTOR 
SET SAVE LOCATION 
;SET SIZE OF ENTRY 


7GET VECTOR ADDRESS 

;LOAD VECTOR WITH HANDLER ADDRESS 
[LOAD PRIORITY LEVEL 

GET STARTING REGISTER ADDRESS 

7 SET R OF REGISTERS 

GET FIRST ADDRESS LOCATION 
BUILD TABLE OF ADDRESSES 

;BUMP ADDRESS 


SEE IF DONE 

:1F NOT: BR 

i SEE mu AUTO SEQ 

gar BR 

RESET "STACK POINTER 
:GO TO AUTO SEQUENCES, 


: INITIALIZE 

REQUEST DRIVE (TMO3) # 
GET ADDRESS 

SET SIZE OF RESPONSE 
SET UPPER LIMIT 

SET LOWER LIMIT 

:GO GET DRIVE NUMBER 


sACCESS DRIVE 
;SEE IF NED 


““ Qe «> Gare, 


: F NOT: BR 
TYPE "NON-EXISTANT DRIVE" 
*RETRY DVN 


SET ADDRESS FOR RESPONSE 
sREQUEST SLAVE (TE16,TU77) # 
:CLEAR BUFFER 


;SET NUMBER OF CHARACTERS TO INPUT 
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000007 SET MAXIMUM LIMIT 

000000 R3 SET MINIMUM LIMIT 

022474 :GO_GET UNIT NUMBER 

000644 eTF oh. id NEW PARAMETER 


000674 
TINPO BRANCH IF FIRST ENTRY 

177777 += 000742 #~1 ,UN1(RO) SET END UNIT TABLE 
TINP2C 7GO GET RECORD COUNT 


UNP ,RO 
(R5) ,UN1 (RO) SET NEW SLAVE # 
ng acs :D0 A MASS ~ CLEAR 
DVN ;LOAD’ DRIVE # 
000742 MO UN1 (ROD ,aTc LOAD SLAVE NUMBER 
002000 #2000, aDT 7SEE IF SLAVE PRESENT 


BNE TINPOD : 0: 
025032 _* sos? 0 fia NON-EXISTANT SLAVE' 
166076 TINPOD: MOV @DT .R3 GET CONTENTS OF DT REG 
000007 BIC #7,R3 :CLEAR DRIVE TYPE # 
142050 CMP #142050 ,R3 SEE IF 9TRK TMO3 
BEQ TINPOE : O: BR 
024725 TYPE ,MSG50 :TYPE "ILLEGAL DRIVE TYPE’ 
166054 MOV aDT .R3 
000007 BIC ¢7, R3 ;CLEAR SLAVE 4 
0124 TYPOCT sPRINT DRIVE TYPE REGISTER 
012470 023360 i : JSR PC,SNPT PRINT SERIAL NUMBER 


012474 000004 024411 : TYPE ,MSG33 REQUEST DENSITY 
000646 CLR TEMP2 CLEAR BUFFER 
000002 ;SET NUMBER OF CHARACTERS TO INPUT 
000004 SET MAXIMUM LIMIT 
000003. >SET MINIMUM LIMIT 
022474 -. :GO_ GET DENSITY 
000010 SET POSITION FACTOR 
013446 PC, TPOS :GO LOAD DENSITY INTO PROPER POSITION 


: (R5) iT DENSITY 
000004 C 4, (R5) 16008P I 
BEQ THEN SKIP oe REQUEST 
024424 TYPE ,MSG34 : REQUEST PARITY 
000646 CLR TEMP2 ;CLR BFR 
SET NUMBER OF — TO INPUT 


ak ah aad ond ath oad ane cad cual anh al aad ah cad cael eal 
lelelelelelelelelelelea) 
od td ae ad a ed ed ed ed ce 


WWNIWNWWNWNWNNNWNNAWNWNGIWAWAANWAW 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WNWWANIWWNWNNWWNNNN AWW 


S 


ooo 
ah ad ad 
MNMNMwW 


000002 
000001 
000000 
022474 


: 


WO -OoW 


; PARITY 
2$ :SKIP 1600 BPI PAROTY SETTING 

1$: [SET ODD PARITY FOR 1600 BPI 

000003 2$: #3 ,R3 SET POSITION FACTOR 

013446 PC,TPOS 7GO POSITION PARITY 


024776 TINP2A: i vet S653 REQUEST FORMAT 
000646 CLR y4 
000003 
000017 
012632 000000 


oo 
=i ad 
hn 
NWN 
NWUIN NWR AN 


WO OO NAARWA ODO TAA R AR SS BOs VR R OM SO ODNARMR WH OSRURARALSS 


WNINNNNNINNNINWNNIWN AINA 
Re SS ss 
OMA EE ABRRLRRARRAW 





Ww 


4 
RARASLSSES 


ed ek ed od od 2) 


oO 
N 


WNIWWNWNIWINIWNNNWW 
— 
88 
oo 


0126 
012674 


012700 
012704 


012712 


012750 
012756 


Coo COO0000 

bo Se Se Pe PP 

WA WNAWWNANG 

aad | sth lh aed ak ak 
WwW hr 


TEDBO TMO3-TE16/TU77 DRT 
TEDB.P11 


15=NOV=78 13:19 
022474 
000004 


000002 
012302 


005037 000674 
113737 004730 


024436 
000554 


000554 
024456 


000556 
000556 


024474 
000560 


014014 


022474 
025164 
000564 


022474 


000004 023666 
013703 000570 
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000674 
000674 


004731 


000632 


0006 34 


TYPE .MSG36 
NEG 


ie 


TYPE ,MSG69 
MOV 


TYPE .MSG2° 
MOV 


UNP 

REOTC ,REOTC+1 
TYPE aoe 
MOV 


CNT ,R3 


#RCNT,RS 
#7,R1 
#177777 ,R2 
#1,R3 


eo 


PC,TIR 
RCNT ,RCSAV 


FMCNT 
FMCNT ,R35 
#FMCNT RS 

7,R1 


FMCNT 
FMCNT ,F CSAV 


PATRN,R3 


DOFL 
a TRN,R5 


3,R1 
#15,R2 
#0.R 
PC; TTR 
TMEX ,R3 
ATMEX,RS 
2,R1 


INTRF ,83 


:GO GET FORMAT 


BUMP EOT UNIT COUNTER 
SEE _IF DONE UNITS 


:1F SO: BR 
;POINT TO NEXT UNIT 
ELSE LOOK FOR NEXT UNIT 


CLEAR UNIT POINTER 
[SET # OF UNITS TO TEST 


REQUEST RECORDS PER BLOCK 


Orr R RECORD COUNT 
;SET RECORD COUNT ADDRESS 
7SET NUMBER OF — TO INPUT 


: SAVE RECORD COUNT 


REQUEST CHARACTERS PER RECORD 


PRINT CHAR COUNT 
SET CHARACTER COUNT ADDRESS 
#SET NUMBER x1 oe TO INPUT 


SET TO TWO"S COMPLIMENT 
:SAVE FRAME COUNT 


REQUEST PATTERN # 
;PRINT PATTERN 


CLEAR EXTERNAL ea Am 
:SET PATTERN NUMBER ADDRESS 
T NUMBER OF CHARACTERS TO INPUT 
FT MAXIMUM LIMIT 
>SET MINIMUM LIMIT 


[GO GET PATTERN NUMBER 
sREQUEST TAPE MARK 
PRINT CURRENT TM FLAG SETTING 


;GET TM FLAG ADDRESS 
SET SIZE OF RESPONSE 
>SET UPPER LIMIT 


+ Y LOWER LIMIT 
:T M 1=YES 


REQUEST INTERCHANGE READ 
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CZTEDB.P11 15=NOV=78 13:19 SEQ 0070 

3210 013142 104400 TYPOCT PRINT CURRENT oe 

3211 013144 012705 000570 MOV MINTRE ,RS GET FLAG ADDRESS 

3212 013150 012701 900002 MOV #2,R1 sSET SIZE -7 RE SPONSE 

3213 013154 012702 000001 MOV #1,R2 :SET UPPER LIMIT 

3214 013160 012703 000000 MOV #0,R3 SET LOWER LIMIT 

iz 013164 737 022474 JSR PC,TIR [GO GET RESPONSE 

3217 013170 000004 024511 TYPE ,MSG38 REQUEST SINGLE PASS 

3218 013174 013703 000572 MOV SPFLG,R3 

3219 013200 104400 TYPOCT sPRINT CURRENT SETTING 

3220 013202 012705 000572 MOV ASPFLG,RS SET ADDRESS OF FLAG 

3221 013206 012701 000002 MOV #2,R1 :SET SIZE OF RESPONSE 

3222 013212 012702 000001 MOV #1 ,Re :SET UPPER L 

3223 013216 012703 000000 MOV #0,R3 SET LOWER LIMIT 

$550 013222 004737 022474 JSR PC,TIR ;GO GET RESPONSE 

3226 013226 000004 024527 “INP3A: TYPE,MSG39 REQUEST CRC CORRECTION 

3227 013232 013703 000566 MOV CRCC,R3 

3228 013236 104400 TYPOCT 

3229 013240 012705 000566 MOV ACRCC,R5S 

3230 013244 012701 000002 MOV #2,R1 

3231 013250 012702 000001 MOV #1,Re 

3232 013254 012703 00000 MOV #0,R3 

3233 013260 737 022474 JSR PC,TIR 

3234 013264 004737 022344 JSR PC,GTSwR GET SWITCHES 

3235 013270 005737 013444 TINP4: TST SCVFL BRANCH IF SHORT CONVERSATION 

3236 013274 001060 BNE T INPX 

3237 013276 005737 000636 1$: TST tin BRANCH IF NO TTY INPUT 
013302 001455 BEQ NPX 

3239 013304 000004 024565 TYPE MSG40 REQUEST READ STALL 

3240 013310 013703 000574 MOV RSTAL ,R3 

3241 013314 104400 TYPOC PRINT READ STALL 

3242 013316 012705 000574 MOV ARSTAL ,R5 :SET READ STALL ADDRESS 

3243 013322 012701 000007 MOV #7 ,R1 SET NUMBER OF CHARACTERS TO INPUT 

3244 013326 012702 177777 MOV #~-1,R2 7SET MAXI LIMIT 

3245 013332 012703 000001 , MOV #1,R3 SET MINIMUM LIMIT 

e509 013336 004737 022474 JSR PC,TIR :GO GET READ STALL 

3248 013342 000004 024614 TYPE ,MSG41 REQUEST WRITE STALL 

3249 013346 013703 000576 MOV WSTAL ,R3 

3250 013352 104400 TYPOCT PRINT READ STALL 

3251 013354 012705 000576 MOV - #WSTAL,RS :SET WRITE STALL ADDRESS 

3252 013360 012701 000007 MOV #7,R1 :SET NUMBER OF CHARACTERS TO INPUT 

3253 013364 012702 177777 MOV 4-1 ,R2 SET MAXIMUM LIMIT 

3254 013370 012703 000001 MOV #1,R3 SET MINIMUM LIMIT 

$522 013374 004737 022474 JSR PC,TIR :GG GET WRITE STALL 

3257 013406 000004 024625 TYPE ,MSG42 REQUEST TURN AROUND STALL 

3258 013404 013703 000600 MOV TSTAL ,R3 

3259 013410 104400 TYPOCT 3PRINT TA STALL 

3260 013412 012705 000600 MOV ATSTAL ,R5 :SET TURN AROUND STALL ADDRESS 

3261 013416 012701 000007 MOV #7,R1 : SET NUMBER OF oeenM, FERS TO INPUT 

3262 013422 072702 177777 MOV #~-1,R2 ;SET MAXIMUM LIMIT 

3263 013426 012703 000001 MOV #1,R3 SET MINIMUM LIMIT 

3264 013432 004737 022474 JSR Pc, TTR :GO_GET TURN AROUND STALL 

3265 013436 005037 013444 TINPX: CLR SCVFL :CLEAR SHORT CONVERSATION FLAG 
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000207 
SCVFL: 


000646 TPOS: 


000674 
900646 000742 


000207 


RTS PC sEXIT 
0 SHORT CONVERSATION FLAG 


sUNIT DESCRIPTION POSITIONING SUBROUT INE***«*x aw 


ASL TEMP2 sPOSITION CHARACTER 
DEC R3 :SEE IF DONE 
TPOS ;1F NOT 


ei : BR 
UNP ,RO ;LOAD UNIT POINTER 
fetal seta 4th; CHARACTER INTO UN1(RO) 


SEQ 0071 
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FARRAR AEE ERE EE 


:DATA SETUP ROUTINE : 
THIS ROUTINE I$ USED TO GENERATE INTO THE ENTIRE 
WR BUFFER (4000 C ) 


THIS TAPE must BE PREPARED 
THE PROGRAM CALLED DTC. (MAINDEC-11-DZTUF-A-D) 
OM DATA a ALSO BE USED VIA CONSOLE 
SWITCH EIGHT (8). 
THIS ROUTINE IS ALSO USED TO CLEAR OUT THE 
;READ BUFFER (4000 OCTAL CHARACTERS) BEFORE EACH 
RECORD IS READ. 


RIOR ISIS IIIS IO IIIS RnR it it tk 
005737 014404 : sSt€ at DID RANDOM DATA 
001044 BN DS2. i IF : BR 
000734 : F SEE Nia “AUTO SEQ 
000560 SEE IF a RANDOM 


DSOC :1F NOT 
014342 ELSE GO _— RANDOM DATA 
; PC :++B DELETE 
DS2A 3++B GENERATE pa LRC/CRC & CLEAR READ BFR 
000560 013652 DpSOC: PATRN,PATS :SEE_IF NEW PATTERN 
DSOA :1F SO: BR 


000552 UDES,R3 'GET UNIT DESCRIPTION 
177767 #177767 ,,R3 [MASK EVEN PARITY 
013654 MP PARS .R3 :SEE IF sn AS LAST TIME 


suf rt 
013654 R3,PARS 7SAVE PARIT 
014406 aaa, :G0 GENERATE EXPT CRC/LRC 


sated SOA: #WDATA,R3 :R3 = ADDRS OF WRITE BUFFER 
00056 \ PATRN,R1 :R1 = PATTERN SELECTOR 

01 eso R1,PATS 

000001 


#1,R1 hae POINTER 

R1 PATTERN SELECTOR EVEN 
902764 PC ,@DATBL (R1) 60" GENERATE PATTERN 
014406 A: PC,CRCLRC :G0 GENERATE EXPT CRC/LRC 
000556 PNT. -R2 IZE 


ZRO=FRAME CMT/2 
032350 ! #RDATA,R1 :R1=READ DATA START 
(R1) CLEAR BUFFER 
Ro ; SEE IF DONE ALL 


DS :1F NO 
2 013654 MOV PARS GET UNIT DESCRIPTION 
7? 013654 #177767, PARS [MASK PARIT 


sEXIT 
[PATTERN NUMBER SAVE 


ooo COCOCOCOO 
GI RARAARE 


Ww 
BEYSNS RVKRSSN 


IN.ANIWAIWWNININIWNWW 


its 
rene 

WHS OONAUS wry 
Bina 
MMynN-— 
ANVIOLO 


ESS 


00055 
17776 


&NON 


; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


0 
0 
0 
0 
0 
0 
0 
0 
C 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


see 
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BARBER EHS S54 


NNNNNNWG 
— 


ec 
penenes eraser eter os 
RESRVS 


014014 


005737 


014014 
000001 
164722 
000644 
900001 
164704 


164676 
000644 


000001 
000646 


026342 
000646 


032350 
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;EXTERNAL DATA INPUT FROM H/S READER (256 CHARACTER MAXIMUM) 
DATO: i DOFL ;BRANCH IF SHOULD DO EXTERNAL INPUT 


PC ;++B RETURN 
014014 1$: P SET EXTERNAL F 
@PRS [CLEAR READER STAT 
[CLEAR FOR USE AS CHARACTER FLAG 
164710 DATOA: : START READER 
DATOB: pe @PRS SEE IF DONE 


;I1F NOT : BR 
S CLEAR SAVE LOCATION 
SSAVE CHARACTER 
ae _s FOUND START CHARACTER 
[SEE IF CHARACTER IS 0 
TIF O : BR 
000644 TELSE SET ase FOUND FLAG 


ATA SIZE 

7GO GET FIRST DATA CHAR 
BUFFER 

SEE IF READ ALL 

;IF NOT : BR 


#RI = START OF WRITE BUFFER 
E R2 = SIZE OF DATA FIELD 
(R1)+, (R3)+ ;REPEAT LOAD OF DATA FIELD 
#RDATA,R3 SEE IF DONE 
DATOF :1F NOT: BR 
PC ;++B RETURN 
R2 [SEE IF AT END OF DATA FIELD 
DATOE :IF NOT : BR 
DATOD ELSE RESTART FILL 
EXTERNAL DATA FLAG=1 IF ALREADY DONE 


SEQ 0073 
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SALL ONES***aeeneee 
177777 TI: 1 :R1=DATA 
pee ane [R2=WORD COUNT +2 
;LOAD BUFFER 
sSEE IF DONE 
;I1F NOT: BR 
SALL ZEROS****enewee 


CLR R1 R1=DATA 
BR DATIA SLOAD BUFFER 


SWALKING ONE*® eee enenan 
#1,R1 3R1=DATA 
#4904 ,R2 3R2=CHARACTER COUNT+4 
R1,(R3)+ ;LOAD BUFFER 
R1 SET NEXT CHARACTER 
Re 7SEE IF DONE 
1$ IF NOT: BR 
PC 

SWALKING ZERO**xtewenne 

000376 : wre #376,R1 R1=START OF DATA 
014074 BR DAT3A LOAD BUFFER 


ZALTERNATING ONE/ZEROs* ete wnwe 


012701 052525 TS: MOV #52525,R1 sR1=DATA 
000747 BR DATIA ;LOAD BUFFER 


sALTERNATING ZERO/ONE ***xeeewen 


125252 : MOV #125252,R1 3R1=DATA 
BR DATIA ;LOAD BUFFER 


ZONE/ZERO IN ALTERNATING WORDS **eexennne 


#125252,R1 :SET WORD 1 
#52525 .R Re 'SET WORD 2 
#1002 SET NUMBER OF ENTRIES 
R1, Case [LOAD WORD 1 
Re, (R3) + [LOAD WORD 2 
SSEE If DONE 
is ‘IF NOT: BR 


KEE RRELEE REL ESLER ES 
VIS SHVRARAYSSSRIKAR 
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sWALKING ONE/ALL ONE IN ALTERNATING CHARS**** 


902002 #2002 ,R2 SET BUFFER SIZE 
000001 MO #1,R1 SET WALK BASE 


177400 : MO #177400, (R3) LOAD ALL ONE BYTE 
R1,(R3)+ ;LOAD WALK BYTE 
1 ;WALK ONE 


;DO FULL BUFFER 


GALL BITS 0-377 etxneennne 


;R1=STARTING DATA 
sR2=CHARACTER COUNT +4 
;LO4D BUFFER 

s ATA 

sSEE IF DONE 

:IF NOT: BR 

ZRETURN 


sALL BITS 377-Oxexeexnnns 


FEEEEEREL ERE 
SCBVEARUVLSY 


EELEE 
RARGNS 


000377 : #377,R1 ;R1=STARTING DATA 
004004 7R2=CHARACTER COUNT+4 
: ;LOAD BUFFER 
;BUMP DATA 
7SEE IF DONE 
;1F NOT: BR 


ZRETURN 
ZALTERNATING CHARACTERS 0 AND 3778kaaxnnnns 


000377 : MOV #377 ,R1 3R1 = DATA 
014022 JMP DATIA ;LOAD BUFFER 


WALKING ZERO/ALL ZERO IN ALTERNATING CHARS***««« 


002002 : #2002 ,R2 SET BUFFER SIZE 
000376 MO #376,R1 SET WALK BASE 


: R1, (R3) ;LOAD WALK BYTE 
177400 IC #177400, (R3)+ CLEAR HIGH BYTE 
Rt :WALK ZERO BIT 
1$ sFILL BUFFER 
PC Z RETURN 
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;AUTO SEQUENCE PATTERN«**an008 


MOV #200,R2 :SET NUMBER OF ENTRIES 
MOV HAPATS,R1 SSET START OF PATTERN 
MOV #10,R4 [SET SIZE OF PATTERN 
MOV (R15+, (R3)+ FILL BUFFER 

DEC R4 i SEE IF DONE PATTERN 


‘Ste TF “DONE BUF ER 
:IF NOT: BR 
;RETURN 


DATA GENERATOR SUBROUTINE ***eexeawe 


000556 ; FMCNT ,R4 SET NUMBER OF FRAMES 
026342 AWDATA,R3 #SET ADDRESS OF START OF BUFFER 
177777 #-1,R1 SET HIGH LIMIT 
R2 ‘SET LOW LIMIT 
022312 : PC ,RANG :GO GENERATE NUMBER 
0006 30 RANSAY, (R3) + [LOAD BUFFER 


R4 SEE IF DONE WHOLE BUFFER 
1$ IF NOT: BR 
000001 914404 MO oi ROFL. SET RANDOM DATA FLAG 
C 
[RANDOM DATA SELECT FLAG 
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CZTEDB.P11 15=NOV-78 13:19 SEQ 0077 
3507 ERE RRR REAR RERERR REE REE 
$205 :CRC/LRC CHARACTER BUILD; 

351 THIS ROUTINE WILL CONSTRUCT AND SAVE He — 
3511 CRC AND LRC CHARACTERS ACCORDING TO DAT. 

3512 RECORD SIZE IF OPERATING IN NRZ MODE 

3513 TTT ITT TILT LT TITTLE CLT LT TLE TTT TLL ETE TTT eee 
3514 

3515 014406 013700 900556 CRCLRC: MOV FMCNT ,RO 3SET RECORD SIZE 

3516 014412 005400 NEG fe 

3517 014414 012701 026342 MOV MWDATA,R1 ;SET START OF BUFFER 
3518 014420 005037 014742 CLR XORS 

3519 014424 111104 CLO: MOVS (R1) ,R4 ;GET CHARACTER 

3520 014426 004737 014614 JSR PC,CLP :GO GET PARITY OF CHARACTER 
3521 014432 004737 014716 JSR PC,XOR :MOR CHARACTER 

3522 014436 000241 CLC : 

3523 014440 006004 ROR RG ROTATE 1 tag 

3524 014442 103014 BCC CL2 F NO CAR BR 

3525 014444 052704 000400 BIS #400,R4 SET BIT NINE 

3526 014450 000241 CLC 

3527 014452 010405 CL1: MOV R4,R5 ;SAVE CHARACTER 

3528 014454 042705 177703 BIC #177703,R5 

3529 014460 005105 COM 

3530 014462 042705 177703 BIC #177703,R5 

3531 014466 042704 000074 BIC #74 ,R4 

3532 014472 050504 BIS R5,R4 ; COMPLIMENT BITS 2,3.4,5 
3533 014474 010437 014742 Cie: MOV R4,XORS 

3534 014500 005300 DEC RO 

3535 014502 001350 BNE CLO ;BRANCH IF NOT LAST CHAR 
3536 014504 013704 014742 CLLAST: MOV a al 

3537 014510 005137 014742 COM 

3538 014514 042737 177050 014742 BIC m177050, ORS 

3539 014522 042704 177727 BIC #177727.RG ;COMPLIMENT ALL BUT BITS 385 
3540 014526 050437 014742 BIS R4,XORS 

3541 014532 013737 014742 014744 MOV XORS ,EXCRC sSAVE EXPECTED CRC 

3542 014540 013700 000556 MOV FMCNT ,RO 

3543 014544 005400 NEG RO 

3544 014546 012701 026342 MOV #WDATA,R1 3DO EXPT LRC 

3545 014552 005037 014742 CLR XORS 

3546 014556 111104 CL3: MOVB (R1),R4 

3547 014560 004737 014614 JSR PC .CLP :GET PARITY 

3548 0145 004737 014716 JSR PC,XOR :MOR CHARACTER 

3549 014570 005300 DEC RO 

3550 014572 001371 BNE CL3 :DO ALL FOR LRC 

3551 014574 013704 014744 MOV EXCRC,R4 

$552 014 004737 014716 JSR PC,XOR ;xOR CRC TO DATA 

3553 014 013737 014742 014746 MOV XORS ,EXLRC ; SAVE EXPT LRC 

3554 014612 000207 RTS PC ;RETURN 

3555 014614 005704 CLP: TST R4 SEE IF 0 CHAR 

3556 014616 001010 BNE CLPE NOT: BR 

3557 014620 032737 000010 000552 BIT #10,UDES “SEE IF EVEN PARITY 

3558 014626 001404 BEQ CLPE SIF NOT: 

3559 014630 012704 000420 MOV #420,R4 :SET 0 CHAR EVEN PARITY 
3560 014634 005201 INC Ri [BUMP POINTER 

3561 014636 000207 RTS PC RET URN 
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CZTEDB.P11 


014714 
014716 


014740 


014742 
014744 
014746 


15=NOV-78 


177400 


000010 000552 


000010 000552 CLP2: 


CLP3: 


XOR: 
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~(SP) 
R4 
(SP) 
R4 
1$ 


(R1)+,R4 
#177400,R4 
(SP) + 


CLP2 
#10, UDES 
CLP 


PC 
#10, UDES 
CLP3 


PC 

#400,R4 

PC 
R4,~(SP) 
XORS , (SP) 
R4 ,XORS 
(SP)+,XORS 
XORS ,R4 

PC 


; CLEAR + Nala SPACE ON STACK 
[SHIFT DAT. 

ADDUP # OF 1 BITS 

BRANCH IF ALL 0''S LEFT 


:BRANCH IF ODD # OF 1 BITS 


SEE IF SHOULD BE EVEN PARITY 
:1F NOT: BR 


ELSE EXIT 
7 SEE wht _SHOULD BE ODD PARITY 
:1F NO a 


ELSE bx 
7 SET PARITY BIT 


:XOR SUBROUTINE: R4 WITH XORS 


:XOR_ SAVE 
EXPECTED CRC 
EXPECTED LRC 


SEQ 0078 
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ra. {RRRAAAARAAAHRERAREREREAAAARARAAAAREAAAA RARER AAA Aee 
rot, ;DATA CHECK SUBROUTINE: 
595 THIS yates} IS USED ie COMPARE EACH CHARACTER 
:0F DA A_READ FROM TAPE WITH THE oa te CHARACTER. 
ERROR DETECTED WILL CAUSE CONTROL TO BE 
RROR PRINT SUBROU 


SSS3 


per eeee yee 


: ERRORS ALSO 
:DATA CHECKING MAY BE TERMINATED BY USE OF 
CONSOLE SWITCH THIRTEEN (13). 


[AAA AARAARARAARREREERR RREKRRERAERRRERERRRERERERRERERER 


014750 : BBC CLEAR BAD RECORD CNTR 
0147 0 CLEAR DATA ERROR FLAG 
;LOAD CHAR COUNT 


eee 


‘SEE IF CORE DUMP 
IF wr BR 
3R5_= FC/2 

7 SET Write DATA ADDR 


;SET READ DATA ADDR 
7SEE IF EVEN PARITY 


IF NOT: BR 
7SEE IF CORE DUMP PARITY 
IF SO: BR 
:SEE IF PE MODE 
SEE. 4 0 CHAR 
iIF BR 
BUMP POINTER 
sSEE IF DONE 
fix! Le 
DFOC “ELSE ONT INUE 
000020 : #20,(R1)+ SET 2 IN PLACE OF 0 
177777 ot pain ;SET PATTERN GENERATE FLAG 
000556 : FMCNT,R5 ;RESET CHAR CNT 
026342 MOV AWDATA,R1 :RESET DATA ADDRESS 
000562 : RDCMD SEE by _READ REVERSE 
: B DFO *1F NO BR 
000556 2 MOV FMCNT R&S GET CRANE COUNT 
R4 :SET TO WHOLE NUMBER 
000020 #20,UDES SEE IF CORE DUMP 
DF OBO ;I1F NOT: BR 


° 


36 
36 
36 
36 
3% 
36 
36 
36 
36 
36 


OUEWN $0 OBNAUSWN-O 


o 
Oo 
Ro 


3SET TO FC/2 
=POINT TO START OF WRITE DATA 
R4,R2 *POINT TO START OF READ DATA 
000556 :SEE IF ODD FRAME COUNT 
DFOA NOT: BR 


CSOOOCOOOOCOCOOoOo 
2) ts ss ss ss ss a as ss ss 
DVPVPVSIVPV PVPS VST STATIS 
PARR RwANPVS=ZeS 
yu 
RVYRVSENSRRVSWOR 


Ts “BUMP POINTER 
000552 : ‘SEE IF CORE DUMP 
NAG NOT: BR 








a 
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o 
~ 
= 


8 

3 
+4 
: 

3 


& 
. 
2 
Ss 
% 


BITB = #1, = (R2) 
BEQ pF 6A0 


(R2) 
#1, (R2) 
pFO6A1 

(R2) :POSITION BITS FOR REVERSE CORE DUMP 
#1, (R2) 

F 


pF OA2 
(R2) 
#1, (R2) 
oF OA3 
(R2) 
R2 :RESET POINTER 
-(R1),=(R2) STEST DATA CHARACTER 
BNE DF1 :IF NOT GOCD: BR 
000656 cL B5¢ [CLEAR BAD RECORD COUNTER 
(R1)+, (R2)+ ZCHECK DATA 
BNE DF1 : : 
000656 cL BBC [CLEAR BAD RECORD CNTR 
016020 : :GO GET DROPS AND PICKS 
015354 :GO DO PRINT 
: rater 
000562 :SEE IF READ REVERSE 
F :IF NOT: BR 
TELSE CONTINUE READ REV 


;CLEAR HEADER FLAG 
;SEE IF HAD DATA ERROR 
F NOT: BR 


:1F NOT DATA ERROR ONLY: BR 
SEE _IF READ REVERSE 
DF4 :IF SO: BR 
eee :BUMP DATA ERROR FORWARD COUNTER 
DEREV1(R4) ;BUMP REVERSE DATA ERROR 
PC ;EXIT 


vw 


4 YS YS oo 


SARE 
338 
ot3 


S 


RSVRARGSRA ab 


Bere 


lelelelelelelelelelelelelelelelelelolelelelelelelela) 
—} 


Metetatetoteteton 
DRBIRAR WN 
Bee 
SruSs88u8s88assss 
Setgee ene Gees oee 


NN NNINTY 
oO 


ROFENVSANSS RY 


PAA AAA AAAI 
_ 
So 


X 
o 


ee et ed a td ad ad aed ot et et ee 
NM Wwe 


wn 
N 
Ww 
o 
— 
wm 


— 
NWN NON] =n =r 


oO 
Ww 


38h 
8 


3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
369% 
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FERRARA EEARRRAARERAERERREREEREEERERREERRRRR ERE 


:DATA ERROR SUBROUTINE : 
:THIS SUBROUTINE IS USED TO PRINT OUT ANY 
;ERRORS FOUND DUR HE DATA CHECK 


ORD, AND 
; ERROR ( REVERSE, WRITE, ETC) 
4 Ne PRINTED ONLY ONCE FOR EACH RECORD F BAD. 
A COUNT IS MADE OF THE NUMBER OF SUCCESSIVE BAD 
CHARACTERS, ry IF TEN (10) SUCCESSIVE BAD oven 
SARE i RECORD, A MES INDICAT 


COURSE ONLY IN 
;RECORDS WHICH CONTAIN A_ SUFFICIENT NUMBER OF CHARACTERS. 
PRINTING OF ERRORS MAY BE DISALLOWED AT ANY TIME 
"BY SETTING CONSOLE SWITCH TEN (10) TO A ONE. 
: THE OPERATOR MAY CAUSE THE PROGRAM TO HALT ON ANY ERROR 
BY SETTING CONSOLE SWITCH FIFTEEN (15) TO A ONE. 


FREER EEREREREKEREREREERERKEKEREREEEEKERKKEKKKREE 


032777 002000 163226 DERR: BRANCH IF NO ERROR 
BN RRS :PRINTOUT So 
000670 DERRO: SET PRINT FLAG 
000664 TS :SEE IF — PRINTED HEADER 


022012 JSR PC,P, :PRINT CYCLE NUMBER 
Shan Be DATA — TAG "*DE' 


JSR 

023537 DERROA: -MSG4 ; TYPE CHAR # TAG ‘CN’ 
MOV R2,R3 

032350 UB #RDATA, oR3 POINT TO CHAR 


000562 RDCMD SEE IF READ REVERSE 
DERROB :1F NOT: BR 
R5,R3 [GET CHAR NUMBER 


: TYPOCT PRINT CHAR te 
023525 TYPE ,MSG2 : TYPE GOOD CHAR TAG 'G' 
000562 TST [SEE IF READ REVERSE 
BEQ F NOT: BR 


‘4 
MOVB “GET CHAR 


BR 
DERROC: MOVB ; ; LOAD pwecree DATA 
023302 DERROD: JSR C.D 4 PRINT CHAR 
023532 TVPE, eee YPE BAD CHARACTER TAG ‘B* 
000562 TST ‘See IF READ REVERSE 
BEQ DEOR :1F NOT: BR 
MOVB (R2) ,R3 ; 


01 
01 
01 
01 
01 
01 
01 
015 
01 
01 
01 





7 
CZTEDBO TMO3-TE16/TU77 DRT MACY11 30A(1052) 21-DEC-78 13:19 PAGE 82 
CZTEDB.P11 15=NOV-78 13:1 


oO 
~m 


DERR1: MO 
923302 DERR2: C.D z;PRINT BAD CHAR 
000562 RDCMD ;BRANCH IF READ 


DERRS ; REVERSE 
DERR3: (R1)+,(R2)+ ;RESET POINTERS 
000656 DERR4: BBC BUMP BAD “yi sy CNTR 
000010 — #10,BBC 5 IF BLD BIH 


DEREX F NOT: BR 
002000 | acteaae fatty ee INHIBIT 


BNE 
023620 ap -MSG15 TYPE “BAD RECORD* 
000656 : CLRB BBC TRESET BAD RECORD CNTR 
000657 BBC +1 


:BUMP AMOUNT 
000003 #3 ,BBC+1 :SEE IF HAD 3 BLD BTHS 
DERR4B :1F NOT: BR 
177767 #177767 ,R5 :SEE IF ON LAST EIGHT CHARS 
DERR6 F SO: BR 


177767 MOV #177767 ,R5 ‘SET CHAR CNTR TO 8 
000562 RDCMD 2 SEE Fe, — REVERSE 


026342 . ‘GET START OF BUFFER 
032350 :GET START OF BUFFER 
Bove! 0 0,R1 


:POINT TO START +10 
SEE IF ODD FRAME COUNT 
:1F NOT: BR 


BUMP POINTER 
BR DEREX 
DERRGA: ° sLOAD CHAR COUNT 
NE TEMP1 


{POINT TO BUFFER -8 
SPOINT TO NEXT CHAR 
sPOINT TO NEXT WRITE CHAR 
4 MO :POINT TO END OF READ DATA -8 FORWARD 
032350 . eee TO NEXT CHAR 


BR REX 
000024 DERR4B: EK IP 20 CHARS 
BC : IF EXCEED RECORD SIZE: BR 
000562 : SEE IF _READ REVERSE 
:1F NOT: BR 
000024 
000024 RESET POINTERS 


BR DERE 
000024 : ADD SKIP 20 CHARS 
000024 SKIP FORWARD 20 CHARS 


177777 : MOV ;SET TO EOR 
162630 : aSw BRANCH IF NOT HALT ON ERROR 


RERVNSSVKR 


BALE 
BYEE 


lelelelelelelelelelelelelelelelelelea) 


eS SS oo a 
rat abv Ah Ah Ab AL Ab Ab Ab Ab A Ab Ab eal Aba ah dh dl eal 


SS 
ANS 


NNN™N 
SEVSFSEAFKSRVARSKS 


000670 PELG :SEE IF PRINTED 
002000 162610 #2000, aSwR SEE IF SHOULD PRINT 
Ex] NOT: BR 


; IF 
015364 DERRO s ELSE PRINT 


NNNNN NN NNN NNN 
Www 
fo 


SANZ 
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7 016006 005037 000670 DEREX1: CLR CLEAR FLAG 
8 016012 005257 000704 INC BUMP DATA ERROR FLAG 
a s4 016016 000207 PC ;RE TURN 


RTS 
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FARRAR AEERERERERRAERERRERRERERREREREEERERREKEEREH 


; DROPS AND PICKS SUBROUTINE : 


THIS SUBROUTINE IS USED TO ACCUMULATE FROM 
SEACH BAD DATA CHARACTER FOUND THE woe 

SOF BITS WHICH WERE EITHER DROPPED OR PICKED UP. 
:TWO COUNTERS PER SLAVE ARE USED TO ACCUMULATE THIS 
INFORMATION AND CAN STORE UP TO 32k DROPS 

:OR fe BEFORE OVERFLOWING. IF OVERFLOW IS 

; TO CCUMULATORS ARE 


TO ZERO. 
ACCUMULATORS MAY 
DISPLAYED AT ANY bey BY a CONSOLE 
Fy gph FOURTEEN TO A ONE (1). THE PRINTOUT WILL OCCUR 
;AT THE END OF THE CURRENT BLOCK CYCLE. 


BB a Ml Es A Ea | OE ES 


USWN—O OONOU SW 


EMP3 
(R1), TEMP 1 :LOAD GOOD CHAR 
(R2) , TEMP2 ;LOAD BAD CHAR 


UNP ,R& 
000720 PIK1(R4) ,BPKP 
00071€ MO DRP1(R4) ,BDPP 
RDCMD SEE IF READ REVERSE 
DRPK SO: BR 


i IF 
~(R1) ,=(R2) [POINT TO CHAR 
(R1)+, TEMP ;LOAD GOOD CHAR 
(R2)+, TEMP2 ;LOAD BAD CHAR 
: PC ,DROP GET DROPS 
016324 PC,PICK :GET PICKS 
PC ;EXI 


Sette BU Bwe owes 
east nest eee tee 


000644 : TEMP ,R3 :R3 = GOOD CHAR 
000646 :R4 = BAD CHAR 
:GET DROPS/PICKS 
SOME: BR 


PC URN 
000010 : MOV [SET NUMBER TO CHECK 
000001 DPCO: #1,R3 2 SEE i DROPPED OR PICKED THIS BIT 


E NO 
000650 :SEE IF ON PICKS 


SO: BR 
162534 BUMP DROP ap 
PC2 :1F NO OVERFLOW: BR 
002000 162416 ! #2000, -@SWR :SEE IF _ PRINTED DATA - 


022012 J PC ,PAPRT SPRINT CYCLE NUMBER 
016370 : PC _DPPRI ;PRINT DROPS AND PICKS 
162506 : a@BPKP a PICK CNTR 
BP DPC2 :@ BR IF NO OVERFLOW 
002000 162366 42°00 ,,adSwR SEE IF HAVE PRINTED DATA 
DPC1A :iF SO: BR 


WWON 
ONNNANND NU 
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3867 
3868 


Bloces 


016520 


15-NOV-78 13:19 


000001 
016126 
024131 
000674 


000010 
162254 
000710 
000002 
000010 
024142 
162220 
000710 
000002 
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000720 
000716 


000720 


000716 


000716 
000710 


000720 


JS PC ,PAPRT 
DPCIA: PC; DPPRT 
DPC2A: UNP RG 
DRP1(R4) .R3 
PIK1 (Rs) “RG 


DPC2B: 


UNP ,R4 
PIK1‘(R4) ,BPKP 
DRP1(R4) ,BDPP 


RTS P 
TYPE .MSG26 
MOV UNP ,R 
DRP1(R4) ,BDPP 
PIK1(R4) ,BPKP 
MOV 
DPPRTO: MO 


BR 
DPPRT1: MOV 
DPPRT2: MOV 


DPPRTX: 


zPRINT CYCLE NUMBER 
PRINT DROPS AND PICKS 


:SET DROP POINTER 
SET PICK POINTER 
;SET NUMBER 


33 OF BITS 
;CLEAR DROPS 

sCLEAR PICK 

sSEE IF DONE 
;IF NOT: BR 
EXIT 

;GET NEXT BIT 
sSEE IF DONE 


2 af 


RETURN 
:GET UNIT POINTER 
SET PICK POINTER 
SET DROP POINTER 
7R4 = GOOD CHAR 
3R3_= BAD CHAR 
SET PICK FLAG 
7GO CHECK PICKS 


EXIT 

: TYPE *DROPS* 

SET DROP POINTER 
SET PICK POINTER 
SET NUMBER TO PRINT 


PRINT DROPS 
4 IF DONE 
F NOT: BR 


“BUMP POINTER 

= CONT INUE FOR . B. Bhi 
;SET NUMBER TO P 

:TYPE "PICKS' 


PRINT PICKS 

SEE IF DONE 

:IF SO: BR 

[BUMP POINTER 

Ee FOR ALL 8 BITS 





el Bad 4 DRT 
15-NOV-78 13:1 


013703 


000556 
000001 


000020 


000010 
000562 
032350 
026342 
040000 
ee 


000007 
020226 


161634 
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000552 


000672 


161702 


{EAA RERERAEERERRERRERERRERRREREREREER EE 


; STATUS CHECK SUBROUTINE: 
:THIS ae cee IS USED TO PERFORM A CHECK OF 


Api: CON 


TROLLER_ (RH11) AND THE TAPE 
RH11_ IS CHECKED FOR op oo 


:CONTROLLER (TMO2). THE RH 
3AS yt ig 5 IN REGISTERS CS1 AND . S2 AND ALSO T 
;THE BUS ADDRESS (BA) AND WORD COUNT (WC) ARE 
THE TMO2 IS CHECKED FOR DRIVE STATIS (DS), 
PROPER FRAME COUN L. # SPECIAL 


RRORS (ER), 
>CHECK CHARACTERS 
:APPROPIA TE (IE: 


E 
;BY THE DISPLAY 
: TYPES ARE ER BITS 


7CRC,LRC,FC, AND BA 


RECEIVED VALUES ( 


AND C 
(CRC+LRC) ARE ALSO CHECKED 
NRZ_ READ OR 


OR WRITE). CERTAIN TYPES 

PE OPERATION WILL BE ACCOMPANIED 
F THE DEAD TRACK g sy (CC). THESE 

15,10,7,6. THE PRINTOUTS OF BAD 

WILL” SHOW BOTH THE EXPECTED AND 
IE: EXPT-RCVD). ONLY yg * REGISTERS 


WHICH ARE_IN ERROR WILL BE PRI PRINTOUTS 

SARE IN OCTAL FORMAT WITH ING ZEROS. AS IN 

:DATA ERRORS, STATUS ERRORS ARE PRECEEDED BY HEADER 
THE HARDWARE 


:DESCRIBING 
; INFORMATION, 


J ARERR EE 


FMCNT ,R3 
#1 ,R3 


ER 
MHWDATA,R3 
#40000 ,aER 
1$ 


Be TEST, THE BLOCKING 


AND THE ERROR TYPE. 


LARA RASSSSASALESELLCALLA SEES EES SSS SS 


:GET FRAME COUNT 
sSEE IF ODD 

31F NOT: BR 
;BUMP COUNT 

;SEE IF CORE DUMP 
;IF NOT: BR 

SET TO FC/2 

SEE IF WRITE OP 
TIF SO: BR 


SET POINTER 

;BUILD EXPT READ ADDRESS 
;BUILD EXPT WRITE ADDRESS 
BRANCH IF NOT UNSAFE 
sADJUST STACK 


:GO MARK UNIT OFFLINE 
SAVE ADDRESS 


CLEAR FLAGS 


SEE iM ADDRESS Ok 
: BR 


af 
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020226 
000010 


—Z 


SET BUS unite a ERROR 
SEE IF WRITE OPER 


TIF NOT: BR 
[SEE IF FC=0 
[SET FC ERROR 
:SEE IF SPACE OPER 
iSEE | IF ™ TIME 
:IF SO: BR 


o~ 


000672 3$: 
161614 4$: 
020234 
000040 5$: 
000676 
000556 
3;R3 = EXPT ~~ SIZE 
161554 : MP sSEE IF FC = EXP 
ER TIF SO: BR 
020234 ;SET FC ERROR FLAG 
BR ER3 
002000 : sSEE IF PE 
BN 4$ ; 0: BR 
000562 sSEE IF READ REVERSE 
8$ IF SO: BR 


000002 ’ 
;LOOK FOR EXPT = 2 
000001 


:GO CHECK FC FOR TM 
160000 161476 3 oo: acl SEE IF COUNT ERROR 


161500 acs,R3 :GET CONT STATUS REG 
000307 #307, R3 MASK OUT IR,OR,UNIT NO. & SEE IF OTHER ERRORS 


: BR 
000676 TMF LG 7 SEE Md TAPE MARK TIME 
001000 2 #1090 ,R3 :MASK MISSED TRANS & BR IF OTHER ERRORS 
060000 161440 2 #60000 aC 1 SEE IF EITHER TRE OR MCPE 
ERS 7;1F NOT: BR 
000676 TMF LG :SEE IF TM TIME 
3$ :1F NOT: BR 


161440 @ER ,R3 :GET ERROR REGISTER 
000010 #10,UDES SEE IF EVEN PARITY 
2$ :1F NOT: BR 


000100 #100,R3 *MASK PAR 
001000 : #1000, R3 [MASK FCE 
ER4 TIF NO ERRORS EXCEPT FCE: BR 
020230 : CONER >SET CONT ERROR FLAG 
040000 161402 : #40000, ads SEE IF DRIVE ERROR 
000676 TMFLG “SEE If TAPE MARK TIME 
2$ :1F NOT: BR 
161370 aER,R3 “GET ER 
000010 000552 #10.UDES iSEE TF EVEN PARITY 


—wo- 
wn eS2mae 
“oO OOo; 


—4@Ww 
m 


™m 


000100 #.90,R3 <MASK PAR 
001000 1$: #1006,R3 [MASK OUT FCE & BRANCH IF 


CQoOooooeoeo COCOCOOO 
2 
NNNNNNNSNNS ON NNN 
2 et 1 =O 
We & Mrmr ™N 
SEVESSRNSA &RSR 
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00140 ER6 :NO_OTHER ERRORS 
005237 620232 2$: DRVER :SET DRIVER ERROR FLAG 


013737 014744 020246 - EXCRC,CRCSV iSAVE EXPECTED CRC 
014746 020244 EXLRC,LRCSV sAND EXPECTED LRC 
002000 000552 #2000 ,UDES 
BNE E 71F_ IN PE MODE: BR 
020000 161374 SEE. IF NO DATA CHECK 
BNE ERPT F NOT: BR (ALLOW READ OF UNKNOWN TAPES) 
000040 000672 SEE IF WRITE OR READ OP 
ERPT F NOT: BR 
000676 i SEE IF TAPE MARK TIME 
1$ F NOT: BR 
014744 
000023 


NNNNNN ONS 
—aabad ab 
Nw yw 
PP 4) 


SERRE 


NN NN 
NON pe 
* 


hy 
ERR 


EXCRC 
#23, EXLRC SET CRC/LRC FOR TM 


MO 
000060 000552 : #60 ,UDES sSEE IF FORMAT 14 
ERPT 31F NOT: BR 
7GET CRC CHARACTER 


161246 MO acc,R3 
177000 #177000,R3 
014744 MP EXCRC,R3 

2$ :1F CRC GOOD: BR 
020240 ‘SET ERROR FLAG 
161230 : ‘GET LRC 


000400 
177000 


014746 

E :1F LRC GOOD: BR 
020242 P SAVE ACTUAL LRC 
020236 LRCER SET LRC_ ERROR FLAG 
000562 RDCMD i SEE io READ REVERSE 


020236 C sELSE CLEAR LRC ERROR 
;CLEAR ERROR FLAG 
000722 
020226 
:SEE IF ANY ERROR 
F SO: BR 


020170 
000706 : :SET ERROR FLAG 
161106 000722 MO @ER, ERSAV + SAVE ERROR REGISTER 
002000 161162 #2000. aSwR :SEE IF PRINT 


O: BR 
000002 000712 MP #2,RTYFL [SEE IF READ RETRY 
ERPTG1 71F NOT: BR 
000702 MO RTCNT ,R3 
R BUMP RETRY COUNT 
000604 a. oe ta SEE _ IF LAST RETRY 


8 ER :1F SO: BR 
000002 020232 ERPIG1: C! #2 ,DRVER :SEE IF TM STATUS ERROR 
B ERPTO SO: BR 


iiF 


SNSVSlSNSacs 
—N—90 VIW— fo =f 
SND WWGw NN 
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CZTEDB.P11 1S-NOV-78 13:1 
000137 020050 
002622 000670 
7? 922012 
000652 017510 


ERPTO: 
PRINT HEADER 
EMADDR, 1$ :GET ADDRESS OF ERROR MSG HEADER 
1$: WORD 0 sADDRESS OF ERROR MESSAGE HEADER 
INT F OR R 


020250 
000676 


025010 


025026 
020250 


023735 
160732 


023762 
160730 


020232 


023770 
160712 


023775 
160702 


020226 


023750 
160652 


023516 
020224 


020234 


023755 
160622 


023743 
160604 
020240 
025053 
160602 
177000 


023516 
014744 


020236 
025061 


ERPT5A: 


PC,FRPRT 7PR 
TMEL G 


ERP 
mcs, -EMADDR 


BEQ 

TYPE ,MSG56 
TST cos 
BEQ PT2 
TYPE IMSGBS 
MOV aC1,R3 


T 

TYPE .MSG23D 
MOV acs ,R3 
TYPOCT 

TST DRVER 
BEQ ERPT3 
TYPE .MSG23E 
MOV aps, 


TY 
TYPE .MSG23F 


BEQ 
TYPE .MSG23B 
MOV @BA ,R3 


TYPOCT 
Teas”: 


BEQ 
TYPE IMSGo3C 
MOV aFC 


TYPOCT 
TYPE ,MSG23A 
MOV awC 


acc,R3 
#177000,R3 


TYPOC 
TYPE ,DASH 
EXCRC ,R3 


BEQ 
TYPE MsG59 


i TYPE 


"T™' 


4 4 NO CONT ERROR: BR 
YPE*CS1° 


PRINT CONTROL 1 
TYPE CS TAG 


PRINT CONT STATUS 


:1F SO DRIVE ERROR: BR 
: TYPE DS TAG 


PRINT DRIVE STATUS 
: TYPE ER TAG 


PRINT DRIVE ERROR 


:1F NO BA ERROR: BR 
: TYPE BA TAG 


PRINT BUS ADDRESS 


PRINT EXPT BUS ADDRESS 


:1F NO FC_ERROR: BR 
TYPE FC TAG 


PRINT FRAME COUNT 
TYPE WC TAG 


PRINT WORD COUNT 


:1F NO CRC ERROR: BR 
TYPE CRC TAG 


PRINT ACTUAL CRC 


PRINT EXPECTED CRC 


71F NO LRC ERROR: BR 
: TYPE LRC ERR TAG 
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020242 MOV ACTLRC,R3 
TYPOCT sPRINT ACTUAL LRC 
023516 TYPE ,DASH 
014746 MOV EXLRC,R3 
020232 


002000 000552 


:PRINT EXPECTED LARC 
71F NO DRIVE ERROR: BR 
z1F NO PE: BR 
160502 MO @ER RS 
075477 :MASK OUT ALL BUT BITS 15,10,7.6 
BEQ RPT7 SIF NO CONDITIONAL S SET: BR 
TYPE (MSGOSH STYPE CC TAG 
MOV acc ,R3 
ao s600, R3 sMASK CC 
sPRINT CHECK CHARACTERS 
aSwR ;BRANCH IF NOT HALT ON ERROR 


;SEE IF HAVE PRINTED 
ERPX :1F SO: BR 
160514 [SEE IF SHOULD PRINT 
BN ERPX :I1F NOT: BR 
[PRINT ERROR 


BRANCH IF CRC ERROR 
CORRECTION DESIRED 
160376 SE_INIT 


ELSE INI 
160370 ;RESET DRIVE NUMBER 


BR 2$ 
160350 : :DRIVE CLEAR 
@AS ,R4 
CLEAR AS 


a :RESET TRE 
160352 28: SRESET TC 


000672 
IF NOT READ/WRITE OP: BR 
000676 
E i IF NOT "I TIME: BR 
020246 014744 CRCSV,EXCRC SRESTORE CRC 
020244 014746 [OC 30 oe MLAS 54 | i LRC 


sEX] 
EXPT ADDRESS SAVE 


OoOOCOCOCCOCOdD 


020246 


KRARAARAARAARAARLRE 
ee ee ed ed ed ed od ed 
RRASLSSEIKARS 





CZTEDBO TMO3-TE16/TU77 DRT 


CZ2TEDB.P11 


020306 
020310 


Oe ale 


15-NOV-78 


13:19 


900010 
023655 
000002 


023650 


000674 
040000 
024057 
000734 


026244 
000500 
021226 
004731 
026206 
004154 
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000672 


020506 
000672 


020306 


000742 


s oveeenecerenencerscenncereeeserecqqeneeeosaceeeeeers 
¥ FOR FORWARD/R FOR REVERSE PRINT SUBROUTINE: 

:THIS SUBROUTINE IS USED TO PRINT OUT THE 
TAPE DIRECTION USED WHEN ANY ERROR IS 
:DETECTED IN STATUS OF READ OR WRITE, DATA, OR 
;SPACING OPERATIONS. 


FERRARA EERE EEE KEEREKKKEKKEREK 


#10,MTC1 
3 


#MSG17, 2% 
#2,MTCi 


1$ 
#MSG16,2$ 


PC 


ROUTINE TO MARK UNIT OFF LINE 


OF FL INE :MOV 
IS 


TYPE .MSG25 
TST 


:GET UNI 
00060, UN1(R1) 


SE QF 


BEQ 1$ 
TYPE ,MSG123 
MOV #50 


JMP 
DECB 


ASEQ 
REOTC+1 


BNE 2$ 
TYPE ,MSG122 
HALT 


JMP 


REOT 


eae y WRITE COMMAND 


‘PRSET MESSAGE TO READ REVERSE 
BRANCH IF REVERSE 


SET FORWARD MESSAGE 
TYPE MSG 


sEXIT 


T POINTER 

MARK UNIT OFF LINE 

:TYPE ‘SLAVE UNSAFE-NO FURTHER TESTING ON SLAVE 
BRANCH IF NOT IN AUTO SEQUENCE 


scl stalk PIR TEST WILL RESTART 
:RESTART AUTO-SEQ 
:DECREMENT UNITS TO TEST CTR 


TYPE *NO UNITS LEFT TO TEST: HALT‘ 





PI 


020526 


rmS-1E 10/1Ur7 DRT 
15-NOV=78 13:19 


000644 
000550 
040000 


020312 
020000 
022012 
026042 
020000 
000026 
177777 


000556 
000001 


000020 


157764 
000011 


157754 
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J AAAAAAAAAAAAAAAAARERAAAAAAAAAAAAARAARARERERARRAARERRED 


; TAPE COMMAND EXECUTE SUBROUTINE: 


:THIS SUBROUTINE IS a TO EXECUTE THE 
TAPE C RIBED BY THE READ 


AN_ INTERRUPT 
INTERRUPT IS RETURNED 
ERROR WIL 
ST D. TESTING MAY 

SUMED BY PRESSING THE CONTINUE a 
‘Two INTERRUPT HANDLERS ARE 3 ONE FOR MAG TAPE 
SAND ANOTHER FOR TELETYPE (TTY). 
; UPON ashton OF A MAG TAPE INTERRUPT, HOUSEKEEPING 
;1S PERF AND CONTROL RETURNED TO THE CALLING 


RRUP 
{THEN AT THIS a REQUEST TALL VALUE 
SARE PRINTED AND THE RESPONSES ENTERED. RESUMPTION 
;OF TAPE INTERRUPT WAIT IS THEN RESUMED. 


FEAR EEERERERREREREREREREERREREREREERRRERERE 


:SET DRIVE NO. 
7SEE_IF UNIT SAFE 


SO: BR 

MARK UNIT OFF-LINE 
:SEE IF PIP RESET 

SO: BR 


‘PRINT HEADER 


JSR PC,P. 
TYPE ,MSG116 ;TYPE MSG 
BIT M2 


0000, aDS 
sAWAIT PIP RESET 
#26 ,MTC1 7SEE IF WRITE ™™ 
TAPG3A :1F NOT: BR 
#~1 RS TELSE SET FC FOR -1 
TAPG3B 
FMCNT ,R4 
#1 RS 
TAPG3B 
R4 
SET Wo = FC/2 FOR NORMAL FORMAT 


RG - 
#20, UDES SEE IF CORE DUMP FORMAT 
TAPGSC :1F NOT: BR 


RG sSET WC = FC/4 FOR CORE DUMP 
Ks, aw "SET WORD COUNT 
#1i,ac1 ‘DRIVE CLEAR 








CZTEDBO TMO3-TE16/TU77 DRT 


CZTEDB.P11 


15-NOV-78 13: 


19 
157756 
000570 


000040 
000003 
000672 
177707 
000030 


177740 
000101 
000672 
157752 
000644 
000644 
000666 
000340 
002000 
022012 
000652 


020250 


021162 
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157754 


000672 
157746 


157724 
157720 


020706 


aFC arc 
lad 


APG3D 
#40 MTC1 


TAPG3D 
a 


EMADDR, 1$ 


JSR FRPRT 
Tyee. ms626 
BPL TAPG? 


HALT 
JMP MTINTA 


sRESET FC LOADED 
eSee IF INTERCHANGE READ 
F NOT: BR 
SEE IF ey oP 
SET INTERCHANGE READ MAINT. MODE 
COMMAND 
“MASK OP CODE 
7 SEE IF SPACE OP CODE 
IF BR 


:SET INTERRUPT DELAY TO 40 
SET INTERRUPT ENABLE AND GO 


7SEE IF HAVE TIMED OUT 
;1F NOT: BR 


2d0 ig & DELAY MULTIPLIER 
;RESET PRIORITY 

2 SEE IF SHCULD PRINT ERRORS 
7; 1F NOT: BR 

[PRINT CYCLE NUMBER 

; TYPE MSG 

sPRINT F OR R 


:TYPE "NO INTERRUPT" 
BRANCH IF NOT HALT ON ERROR 


RETURN TO CALLING ROUTINE 
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-TTY INTERRUPT HANDLER 

mov aTkB,- :GET CHARACTER 
000200 BIC 200; (5P) [STRIP PARITY BIT 
000003, MPB #3 (§P) [BRANCH IF NOT “C 


sRESET ALL 1/0 
157626 CL :CLEAR PSW 

000200 a#200 RESTART PROGRAM 
000001 g wre [BRANCH IF NOT “A 


BNE 
000176 000610 ———— ;BRANCH IF HARDWARE SWR IS INVOKED 


177570 000610 #177570, SWR Z INVOKE HARWARE SwWR 

022430 JSR PC, . SAVE : SAVE REGISTERS ON THE STACK 
026160 TYPE, msciot” TYPE "HARDWARE SWR IN USE‘ 
022452 JSR ZRESTORE REGISTERS 
000007 : #7. (SP) [BRANCH IF NOT *G 


4 
000176 000610 : : INVOKE SOFTWARE SWR 
2344 PC, GTSWR GET SWITCHES 
BRANCH IF NOT “B 


cave. es ON THE STACK 


7GO CHECK CRC CORRECTION 
000040 157514 BRANCH IF NOT YOZZLING 


BE 
024650 G4 REQUEST NEW YOZZLE STALL 
000602 MOV 


YSTAL,R3 
ZPRINT PRESENT STALL 

#YSTAL,RS zSET ADDRESS OF YSTL 
#7,R1 SET R OF 

#~-1,R2 

#2000,R3 

PC,TTR GET VALUE 
022452 PC, .RESTORE “RESTORE REGISTERS 

(SP) + ;POP CHARA CTER OF THE STACK 
01C770 MOV #Y0Z, (SP) ;RETURN TO ‘YOZ‘ 


RETURN TO yoz 
022452 : PC,.RESTORE 
: (SP) + zPOP CHARACTER OFF THE STACK 
ZRETURN 
oy TAPE INTERRUPT HANDLER 


MTINT: 
000037 157344 MTINTA: BIC #37 ,aMR CLEAR MAINT MODE 
000662 MOV RTRN, (SP) SET RETURN TO (RTRN) 
021174 000002 RT] ZRETURN 
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[EERE AAARAREEEEEEREREERERERRRRE 


AUTO SEQUENCE 


THIS ROUTINE ,ENTERED VIA pte, ADDRESS 4240 
SWILL EXERCISE ute AVAILABLE SLAVES ON ALL AVAILABLE 
DRIVES IN BOTH PE AND NRZ ACCORDING TO THE PRESELECTED 
;TEST PLAN. IF NRZ ONLY, PE TESTING WILL NOT BE ATTEMPTED. 


[EAA AEEEAEAERAERAERRRRERREREE 


925475 :  TYPE,MSG104 REQUEST ‘AUTO CONT‘ 
10740 MOV paseacr, RS ; 


#1,R2 
“RS 

PC,TIR 

DVN 


oooo 
<td aad aad ood 


L 

SET LOWER LIMIT 

:GO_GET “oy 

SET DRIVE # 0 

SR PC,HRDS 4 SELECT HARDWARE CONFIGURATION 
TYPE Msci104 TYPE ‘eeenen,, ,ae0! 
et MSCS R3 STYPE "DRIVE (TMO3) = ° 
TYPOCT PRINT DRIVE # 

026333 TYPE , SPACE 

024376 TYPE MSC3C :TYPE * SLAVE # = ‘ 

000742 1$ MOV [POINT TO START OF SLAVE TABLE 


;PRINT SLAVE TABLE 
1 7DO ALL 
021524 2¢: :GO DO MODE 1(NRZ) 
021656 J :GO DO MODE 2(PE) 
000007 000550 ASEQ4: : :SEE IF ALL DRIVES 
000550 Vv BU DRIVE NUMBER 


BR 
000740 ASEQX: SEE IF CONTINUOUS AUTO SEQ 
BN :+*B CONTINUE TESTING 
004662 





CZTEDBO TMO3-TE16/TU77 DRT 
13:19 


C7TEDB.P11 


021522 


15=NOV-78 


000550 
157062 
010000 
000401 


000010 
004730 
177777 


MACY11 30A(1052) 


157146 
157140 


157126 


157034 
004730 


21-DEC-78 


REOTC 
#40,aCS 
ro 


) 
pe ,acs 


(SP) + 
ASeOS 


$300k R 
#40080. RO 


#401 ,REOTC 
~'f (R1)+ 


R 
#10,R0 
3$ 
REOTC 

1$ 

#-1, (R17) 
PC 


F 8 
13:17 PAGE 96 


; SUBROUTINE TO SELECT AUTO SEQUENCE HARDWARE ****2e2« 


oe EOT UNIT CNTR 
: INIT 


7SET DRIVE 
ACCESS DRIVE 
TEST FOR NON-EXISTANT DRIVE 
AVAIL: Fen 


; DRIVES 
:++B GET CONTENTS OF ore hits REG 


7+*B CLEAR SPR AND SPEED 
;+*B BRANCH IF NOT TMO3 MAGTAPE DRIVE 


SET START OF SLAVE TABLE 
BRANCH IF NOT IN CHAIN MODE 


:BRANCH IF NOT LOADED VIA TMDP 
sBRANCH IF NOT DRIVE 0 
:DO NOT ——' 0 


SELECT $ 
sae alt oe AVAIL FOR TEST(MOL) 


: INCREMENT UNITS TO TEST COUNT 
[LOAD SLAVE # oy SLAVE TABLE 
STEP TO NEXT SLAVE 

[BRANCH IF ALL SLAVE NOT DONE 


SEE IF FOUND ANY SLAVES 


IF NOT: BR 
: TERMINATE SLAVE TABLE 
[RETURN TO SEQ 
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; SUBROUTINE TO SELECT NRZ AUTO TEST MODE seeeeneenes 
ost? 4 000654 : 3 ;ASSURE BLOCK op ae Is 0 


YOO tRID* AL TO NRZ, 
att (R1) [LOOP UNTIL REACED END OF TABLE 


PC ,RWNDA 3GO REWIND ALL AVAIL SLAVES 
#6, ABLCNT SET NUMBER OF BLOCKS FOR MODE 1 
#-4000,FMCNT  :SET FC = 4000 
#100,RCNT ZSET REC CNTR = 100 
#1,PATRN i SELECT PATTERN 1 
TMEX o ast NO Ti 
INTRF SSURE NORFAL READ 
PC, STAUTO ‘60 DO AUTO MODE 1 
#10,PATRN “SELECT PATTERN 10 
PC, STAUTO :GO DO PATTERN 10 
#14, PATRN =SELECT PATTERN 14 
J PC, STAUTO 
000560 34: #~1,PATRN ;SELECT AUTO RANDOM DATA 
< PC, $TAUTO 
021654 PC ZRETURN TO SEQ 
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; SUBROUTINE TO SELECT PE AUTO TEST MODE**sseen00 


BLCNTR aS ae BLOCK CNTR 
:SET START OF SLAVE TABLE 
CLEAR NRZ 
SET TO PE NORM, ODD 
[LOOP UNTIL END OF TABLE 


REWIND ALL SLAVES 

7 SET ane BLOCK COUNT 
7SET FC = 4000 

SET REC CNTR TO 100 
#10,PATRN SELECT PATTERN 10 
PC, STAUTO [G0 DO AUTO SEQ 
#14,PATRN ;SELECT PATTERN 14 


SELECT PATTERN 15 
FORCE TO END OF TAPE 


SELECT AUTO RANDOM DATA 
PC,§TAUTO 


022010 : PC RETURN TO SEQ 





CZTEDBO TMO3-TE16/TU77 oF .19 


CZTEDB.P11 


15=NOv-78 1 


024752 
000550 


024376 
000552 
177770 
023520 
000552 
177770 
025067 
000010 000552 


025073 
000552 


177760 
BE 
023653 
000560 
023605 
000654 
023613 
000010 000672 


PAPRTA: 
PAPRTC: 
PAPRTD: 
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J AAA AARAAAAARAAAEAAERERARAAAEEEEREERERERRRERERRERRRE EEE 


;ERROR HEADER PRINT SUBROUTINE: 
iTHIS ROUTINE IS USED TO PRINT OUT A HEADER 


;WITH EACH ERROR 
LI 


THE PRINT IS IN TWO 


ME SSAGE . 
NES AND CONTAINS THE FOLLOWING INFORMATION. 
1: DRIVE NO. SLAVE NO. DENSITY PARITY FORMAT 


HE ERROR OCCURED THE T 
SOF RECORDS IN THIS BLOCK, THE RE CORD SIZE (NUMBER 
[OF CHARAC YPE (READ WRITE. SPACE, ETC) 


RECORD R_IN 
TOTAL NUMBER 


C TERS), AND THE ERROR T 
‘PLUS THE TAPE BIRECTION ( (FORWARD OR REVERSE). 


SALL NUMBERS ARE IN 


J EAA AAA AERA EEE EREEREERERAEREREEERERERERREREEHEE 


TYPE .MSG5S2 

MOV DVN.R3 

TYPOCT 

TYPE ,MSG32 

MOV UDES ,R3 

BIC #177770,R3 
TYPOCT. 

TYPE ,MSG1 

MOV 


UDES ,R3 
SWAB 
BIC #177770,R3 
TYPOCT 


TYPE ,MSG61 
LR R 


ES,R3 


R3 
R3 


R3 
#177760,R3 


OC 
im -MSG8 
TST PATRN 
BPL PAPRTC 
TYPE ,MSG17 
BR P. 


3 
BLCNTR,R3 
TYPOCT 
TYPE .MSG14 
MOV RO,R3 
BIT aA MTC1 
PAPRT 1 


sTY°E "DRIVE # = * 


PRINT DRIVE NUMBER 
sTYPE “SLAVE # = ° 


PRINT SLAVE 


NUMBER 
TYPE DENSITY TAG ‘*DE* 


PRINT DENSITY 
TYPE PARITY TAG ‘*P* 


SET PARITY INDICATOR = EVEN 
PRINT PARITY BIT S an 
TYPE FORMAT TAG ‘* 


POSTION FORMAT BITS 


PRINT FORMAT 
TYPE PATTERN # TAG **PATRN' 
;BRANCH IF NOT RANDOM PATTERN 


TYPE ‘R* FOR RANDOM 


PRINT PATRN NUMBER 
TYPE SLOCK # TAG **BN' 


PRINT NUMBER 

TYPE RECORD # TAG ‘*RN’ 
GET # OF RECORDS LEFT TO PROCESS 
om Rive OPERATION 


a4 
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000030 000672 ;BRANCH IF SPACE FORWARD 
BEQ PAPRT1 
900562 BRANCH IF READ FORWARD 
BE PAPRT1 
000032 :BRANCH IF NOT SPACE REVERSE 
BNE PAPRT3 
000712 > APRT3 BRANCH IF NOT RETRYING 
000554 : MOV GET # OF RECORDS TO PROCESS 
2 R 7FORM RECORD NUMBER 
zPRINT RECORD NUMBER 
023516 TYPE ,DASH : TYPE A DASH ‘=" 
000554 


PRINT RECORD COUNT 
TYPE RECORD SIZE TAG ‘*RS* 
GET CHARACTER COUNT 
7FORM TWO'S COMPLEMENT 
CT zPRINT RECORD SIZE 
022302 000001 SET HEADER FLAG 
022319 000207 C ;RETURN 


023556 
000556 





CZTEDBO TMO3-TE16/TU77 DRT 
15-NOV-78 13:19 


CZTEDB.P11 


022312 


022472 


022737 
001025 
004737 


000004 
017703 
104400 


000004 
013705 
012701 
01270 

01270 

004737 
004737 
000207 


010546 
0 


000176 
022430 
023476 
156220 
023506 
000610 


000007 
177777 
000000 


022474 
022452 
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SEEKER EREREEAAEAAEEERERERAEEEKERERRRREKRKREREEREEE 


; RANDOM NUMBER GENERATOR SUBROUTINE: 
;THIS SUBROUTINE IS USED TO GENERATE THE RANDOM 
USE _AS RAND 


[NUMBERS REQU ~ pag FOR 


OM DATA, 


RECORD COUNT, AND CHARACTER COUNT. 


TTTETT TIT T TILT ITLL TLE LETT ELE LLL ELLE EEL 


; SUBROUTINE TO GET NEW SOFTWARE 
GTSWR: #SWREG, SWR 
BNE 


mr077, R2 


PC,TIR 
PC; .RESTORE 
1$: PC 


GET NEW NUMBER 
i SEE IF NUMBER TOO BIG 


F SO: 
‘SEE IF NUMBER TOO SMALL 
IF SO: BR 
SWR 


BRANCH IF SOFTWARE Swk 
NOT INVOKED 
SAVE REGISTERS ON THE STACK 


GET CURRENT SWR 


sREQUEST NEW SWR SETTING 

TTR ROUTINE RETURNS VALUE TO (R5) 
LIMIT RESPONSE TO 7 CHARS 
BETWEEN 0 AND 177777 


GET RESPONSE 
RESTORE REGISTERS 
;RETURN 


Ltr He * bn SAVE REGISTERS ON er STACK 
AVE: %5,-(SP) 


0,-(SP) 
14(SP) ,~(SP) 
PC 


R5 IS SAVED AT 


(SP) 
; ON THE STACK 
:sRETURN TO CALLER 


hy; Hd TO Reston REGISTERS SAVED ON THE STACK 


RESTORE :MOV (SP)+,14(SP) 

MOV (sP)+- *%0 
(SP) +,%1 
(SF) +,%2 
(SP)+,%3 
(SP)+,%4 
(SP) +.%5 
PC 


i:STORE RETURN PC ON STACK 


Z RETURN 


SEQ 0101 
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J REA AAEEE AAR EREREEEEEEAEEREEREREREREREREERERERREERERE 


;TTY ENTRY SUBROUTINE : 


iTHIS SUBROUTINE IS USED BY THE TEST CONDITION 
; THE fon Lea lty we 


Y AND 
T BE _TYPED_IN OCTAL 
; AND MUST FALL WITHIN THE LIMITS SET BY 
>THE CALLING ROUTINE. 
i TF AN ENTRY nk ILL eo, OR OUTSIDE THE LIMITS, 
‘mae ay Ran K IS TYPED (?) AND THE RESPONSE 


TE ED. 
sENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 
;MAY BE TERMINA 


NATED AT LESS THAN SIX BY TYPING A 
: CARRIAGE RETURN 


Pitti tiie ttt titi i iri iri iii iit iititt iit it iit ii tit 
R1,-(SP) SAVE CHAR COUNT 

: (SP) ,R1 RESTORE CHAR COUNT (FOR “U) 
000644 at :CLEAR FIRST CHARACTER FLAG 
022720 : PC, it :GO READ CHARACTER 
000003 #318 BRANCH IF NOT “C 
000200 MP a#200 RESTART AT 200 
000015 : o)7-1 :SEE I IF >. an 
000644 TEMP) See IF +e ae CHARACTER 


9$ 
BR 6$ ZELSE GO LOAD VALUE 
000025 000642 : $3 6118 BRANCH IF NOT CONTROL U 


BNE 
024153 ~* -MSG28 TYPE <CR><LF> 
000177 000642 : oe 33.” BRANCH IF NOT ‘RUBOUT' 
REMOVE LAST CHARACTER 


ASR RO 

026110 4 sTYPE *\* 
INC R1 :DEC CHAR RECEIVED COUNT 
BR 1$ GET NEXT CHARACTER 

000060 000642 : SEE IF CHAR IS LESS THAN 0 


| 
000070 000642 : ? SEE IF CHAR IS GREATER THAN 7 


000644 : - SET FIRST CHARACTER FLAG 
SHIFT 3 LEFT 


RO 
177770 é #177770,TiB STRIP ASCII 
000642 TIB,RO [LOAD CHARACTER 
Ri SEE IF DONE 
1$ 7IF NOT: BR 





CZTEDBO TMO3-TE16/TU77 oa nS. 19 


CZTEDB.P11 


022716 


15=NOV-78 1 


024644 
000020 


MACY11 30A(1052) 


6$: 
7$: 


8$: 
9$: 


21-DEC-78 


tr 
RTS 


Mm 8 
13:17 PAGE 103 


zSEE IF EXCEEDED MAXIMUM LIMIT 
SEE IF BELOW MINIMUM LIMIT 


LOAD VALUE 
cae COUNT OFF STACK 


sie “7 

POP CHAR COUNT OFF STACK 
TRESET SP TO START OF VALUE ROUTINE 
REDO VALUE ENTRY 


SEQ 0103 
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ZTTY READ SUBROUTINE **taxannan 


155666 3 INC aTKs 

155662 : gixs 

155656 MO aTks,TIB 

177600 00064 #177600,TIB sSTRIP PARITY BIT 
000015 a #15,TIB  BRANC H IF NOT <CR> 
024153 TYPE .MSG28 TYPE ‘<CR><LF> 


BR 
000004 000642 : TYPE ,T1B ECHO CHARACTER 
055990 : RTS PC 


STTY OUTPUT SUBROUTINE ***aaannnnnn 
022772 ; nad R4,-(SP) ;SAVE R4 ON THE STACK 
;GET ADDRESS OF MESSAGE TO TYPE 
sADJUST RETURN PC 
GET A CHARACTER 
;AND BRANCH IF END OF MSG 
‘BRANCH IF CRLF CHARACTER (%) 


sECHO CHARACTER 


NNENS EN 
Pe ena: § 
NNWS NS 


a" 
— 
Nm 

NN 


000640 


73 
73 
70 
03 
7 


Ses8es 


:DO FILLERS 


WWNOW 
NNRIWN NW 


sRESTORE REGISTERS 
ZRETURN 


155476 
000207 ’ C - ZRETURN 
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ZOCTAL OUTPUT SUBROUTINE ts *eeneennne 
923300 : ;CLEAR FLAG FOR LEADING ZERO 
[SEE IF NUMBER IS ZERO 
7; IF NOT ZERO: BR 


SPACE AND EXIT 
;BRANCH IF MSD IS A ‘0° 


PRINT 1 


026335 


2sg989 
an | 
33=2 


000001 
023240 


239% 


POSITION DIGIT 


WD 


38 
a2 
ES 


023240 ;PRINT DIGIT 2 


Dc. 


€3 


tt Ss 2 9 ss ) 9) 3 SS) 


VFARNFFRSSLSEASEVNSR 


RSSRES 


™N 
WIANNINAIAIANIAAAINNANANAS 


R4 

023240 PC ,OCTPG sPRINT DIGIT 3 
ROL RS 
RS 
R4 

923240 PC,OCTPG zPRINT DIGIT 4 
OR R4 


SReve 


N 
Ww 
N 


023240 
023240 ' JSR 
026333 ; Une SPACE 


006004 
006004 
006004 
004737 
004737 
000004 


177776 0 : #177770,R4 
BNE 1$ 
023300 
023300 
000260 
000640 
023106 
FIRST CHAR FLAG 


;DATA CHARACTER OUTPUT SUBROUTINE ***xennenen 


000010 : #10,R4 :SET NUMBER TO PRINT 
GET CHAR TO OUTPUT 
“BRANCH IF BIT IS A ZERO 


_—— 1 CE 
BROW 
Sues 
Rank 


BCC 2$ 
026337 Ewe piel t! 
026335 : TYPE ,DIGITO 
: DEC R4 
BNE 12 
TST (SP)+ sPOP STACK 


sss 


0233 
023332 
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PC 
5 : TEMP3+1,R3 

39986 PC ,DOUT 
she , » TEMPS,R3 

PC ,DOUT 

PC 

7TU16 SERIAL NUMBER PRINT SUBROUTINE **see02 

7GET CONTENTS OF SERIAL # REG 
TYPE SN TAG 


* 
co 


ababababed adababad 


PRINT FIRST DIGIT 


:PRINT SECCND DIGIT 


Petetetet tet) 


481 
4820 
2 


R4 
023452 ;PRINT THIRD DIGIT 


023452 JSR PC, SNP sPRINT FOURTH DIGIT 
024153 _ cae ° ; TYPE <CR><LF> 


SEXIT 
000260 : #260, T0B :SET NUMBER BASE 
177760 B #177760,R4 :MASK NUMBER 
000640 R4,T0B SBUILD DIGIT 
023106 PC’ 10G *GO TYPE 
PC RETURN 
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CZTEDB.P11 15-NOV-78 13:19 SEQ 0107 
ZERROR MESSAGES *eeeancanne 
051127 : .ASCIZ /2%SWR = / 
053505 : .ASCIZ / NEW = / 


Se 
See 


i 


R 
— 
ERR 
URWAUNNUVUMANMNOOOU 


a 
¥ 


$8 ¢ 
— — 
Ww WN ny 


BAD RECORD2%/ 


R88 
238 
— 

So 
-—oOvM" 


/ R/ 
/ EOT # / 
INTERCHANGE READ? / 


/%ILLEGAL BOT: HALT%/ 


fon 
ah oad 
os 


/%CS1 / 


S 


-—3= = 
=—N“N W 


MSG23A: . 
M : 


ReSERee 
soy oO 


DES BANANA AAGI AAA 
uM 
OOnronny 


ooo 

SRS 

Ouro 

— 
SUMIWANA 


SLLLEL 


NTERRUPT%/ 


RR FFF RR E 


NPN 


050125 
00 ' 
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